For loop in simulation in R

Question

I am trying to perform a for loop simulation in R. Below is a description of what I am trying to accomplish:

1. Loop over every individual and randomly assign a