## Not run:
#
# ## use a button to reset a random seed
# manipulate(
# {
# if(resetSeed)
# set.seed(sample(1:1000))
#
# hist(rnorm(n=100, mean=0, sd=3), breaks=bins)
# },
# bins = slider(1, 20, step=1, initial =5, label="Bins"),
# resetSeed = button("Reset Seed")
# )
#
# ## End(Not run)
Run the code above in your browser using DataLab