Manipulating People in a For Loop in R Adding and Removing efficiently