powered by
bar_plot(y, ...)
s <- spinner_data(c(1, 2, 2, 1), nsim=100) bar_plot(s, "Spinner Data")
Run the code above in your browser using DataLab