library(tidyverse)
# Set seed for reproducibility
set.seed(789123)
# Create groups 1-28
groups <- 1:28
# Randomly assign to Monday or Wednesday
assignments <- tibble(
Group = groups,
Session = sample(
rep(c("Monday, Dec 8th", "Wednesday, Dec 10th"),
each = 14
),
size = 28,
replace = FALSE
)
) %>%
arrange(Session, Group)
# Display the assignments
assignments %>%
knitr::kable(
col.names = c("Group", "Session"),
align = "lc",
caption = "Group Assignments"
)
