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/bibliographica documentation built on April 11, 2022, 3:40 p.m.