powered by
beta_data(shape_par, nsim=1000)
sp <- c(2, 1, 1, 2) spinner_data(sp, 10)
Run the code above in your browser using DataLab