R/spinner_data.R

In bayesball/TeachBayes: Teaching Bayesian Inference

Defines functions spinner_data

Documented in spinner_data

spinner_data <- function(regions, nsim=1000){
  sample(length(regions), size=nsim,
         prob=regions, replace=TRUE)
}