R/gatherings_format.R

# Recognize gatherings format
gatherings_format <- function (x) {

  gtab <- gatherings_table()

  # Majority vote
  names(which.max(apply(gtab, 2, function (i) {sum(x %in% i)})))
  
}
COMHIS/comhis documentation built on Aug. 15, 2021, 11:07 a.m.