R/roll_ability_scores.R

In dndManager/dnd5e: D&D 5e data

#' Roll for ability scores
#' 
#' @param n The number ability scores to roll (default=6). 
#' @return A numeric vector of ability scores
#' @export
#' @examples 
#' roll_ability_scores()
#' hist(roll_ability_scores(1e5), seq(2.5,20.5,by=1))
#' 
roll_ability_scores <- function(n=6) {
  m <- matrix(d6(n*4), nrow = n, ncol=4)
  apply(m, 1, function(x) sum(x)-min(x))
}