person <- list()
# Order is so the senior students are prioritised over juniors.
# Within their year students are initially arranged alphabetically
# by their last name and later rearranged.
person[[1]] <- c("Jae Byung Cho",
"Kyuseong Choi",
"Navonil Deb",
"Youssef Fahmy",
"Zachary James",
"Shira Mingelgrin",
"Jacob Ornelas",
"Tejas Ramdas",
"Suvadip Sana",
"Xiaohan Wang",
"Hantao Wu")
person[[2]] <- c("Nabil Boulos",
"Daniel Coulson",
"Michael Czekanski",
"Sang Hee Kim",
"Sithija Manage",
"Ha Nguyen",
"Livia Popa")
person[[3]] <- c("Arisina Banerjee",
"Filippo Fiocchi",
"Lin Gui",
"Cam Hogan",
"Minjie Jia",
"Tathagata Sadhukan",
"Joia Zhang")
person[[4]] <- c("Wang Boyu",
"Haoxuan Fu",
"Lehao Fu",
"Wenjie Guan",
"Choi Sunho",
"Sharan Sahu")
person[[5]] <- c("Vincent Counathe",
"Levi Kronenthaler",
"Conner Panish",
"Abir Sarkar",
"Shreyas Swaminathan",
"Leo Villani",
"Feiyang Yi")
n_students <- sum(sapply(person, length))
set.seed(2025) #it's traditional to choose the year as the seed
person_order <- unlist(lapply(person, sample))
knitr::kable(cbind.data.frame("Order"=(1:length(person_order)),
"Person"=person_order),
format = "html", booktabs = F, linesep = "", align="lcr")
|
Order
|
Person
|
|
1
|
Youssef Fahmy
|
|
2
|
Xiaohan Wang
|
|
3
|
Jae Byung Cho
|
|
4
|
Jacob Ornelas
|
|
5
|
Shira Mingelgrin
|
|
6
|
Navonil Deb
|
|
7
|
Kyuseong Choi
|
|
8
|
Suvadip Sana
|
|
9
|
Hantao Wu
|
|
10
|
Zachary James
|
|
11
|
Tejas Ramdas
|
|
12
|
Michael Czekanski
|
|
13
|
Livia Popa
|
|
14
|
Sithija Manage
|
|
15
|
Ha Nguyen
|
|
16
|
Sang Hee Kim
|
|
17
|
Nabil Boulos
|
|
18
|
Daniel Coulson
|
|
19
|
Tathagata Sadhukan
|
|
20
|
Minjie Jia
|
|
21
|
Joia Zhang
|
|
22
|
Arisina Banerjee
|
|
23
|
Cam Hogan
|
|
24
|
Filippo Fiocchi
|
|
25
|
Lin Gui
|
|
26
|
Lehao Fu
|
|
27
|
Wenjie Guan
|
|
28
|
Sharan Sahu
|
|
29
|
Haoxuan Fu
|
|
30
|
Wang Boyu
|
|
31
|
Choi Sunho
|
|
32
|
Conner Panish
|
|
33
|
Shreyas Swaminathan
|
|
34
|
Abir Sarkar
|
|
35
|
Levi Kronenthaler
|
|
36
|
Leo Villani
|
|
37
|
Vincent Counathe
|
|
38
|
Feiyang Yi
|