Looping Through a Data Frame with Sweave