Simple Group Assignments

assigner.R

# Author: Colin Gross
# Date: 2022-02-22

#' Simple group assignments.
#'   Randomly order equally distributed group ids
#' @param num_groups Number of study groups
#' @param num_per_group Number of individuals per group.
#' @return named vector of randomly selected group assignments. 
simple_grp_assignments <- function(num_groups, num_per_group){
  num_indv   <- num_groups * num_per_group
  grp_labels <- LETTERS[1:num_groups]
  grp_ids    <- rep(grp_labels, num_per_group)
  
  grp_assignments <- sample(grp_ids, size = num_indv, replace=FALSE)
  names(grp_assignments) <- 1:length(grp_assignments)
  
  return(grp_assignments)
}

assignments <- simple_grp_assignments(3, 5)
checksum <- digest::sha1(assignments)

cat("assignments:\n")
print(assignments)
cat(paste("\nassignments checksum:", checksum, "\n"))