rs <- runif(4)
rs <- runif(4)
rs <- runif(4)
rs <- runif(4)
rs

students <- c("Amber", "Athila", "Lindsey", "Rachel")
d <- data.frame(students, rs)

d2 <- d[ order(rs), ] 

d
d2
students

sample(students,4)
set.seed(29)
for (i in 1:10) 
{ 
  t <- sample(students, 4) 
  print(t) 
}

set.seed(22)
 
?set.seed()