data <- read.csv("z:\\courses\\8801\\Stat8801Spring08.csv",header=T)
set.seed(123)
leaders <- sample(1:18,18, replace=FALSE)
week <- 2
current.leaders <- leaders[(week-1)*3+1:3]
current.followers <- sample(leaders[-((week-1)*3+1:3)],15,replace=FALSE)
group1 <- c(current.leaders[1],current.followers[1:5])
group2 <- c(current.leaders[2],current.followers[5+1:5])
group3 <- c(current.leaders[3],current.followers[10+1:5])
library(xtable)
xtable(data.frame(Name=data$Name[group1],email=data$SchoolEmail[group1]) )
xtable(data.frame(Name=data$Name[group2],email=data$SchoolEmail[group2]) )
xtable(data.frame(Name=data$Name[group3],email=data$SchoolEmail[group3]) )