R/spinner_probs.R

In bayesball/TeachBayes: Teaching Bayesian Inference

Defines functions spinner_probs

Documented in spinner_probs

spinner_probs <- function(regions){
  data.frame(Region = seq_along(regions),
             Prob = regions / sum(regions))
}