Dimes.boot <- do(5000) * c(boot.mean = mean( ~ mass, data = resample(Dimes))) gf_dhistogram( ~ boot.mean, data = Dimes.boot)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.