Description Usage Format Source See Also Examples

A dataset of 40 pennies to be treated as a random sample with `pennies`

acting
as the population. Data on these pennies were recorded in 2011.

1 |

A data frame of 40 rows representing 40 randomly sampled pennies from `pennies`

and 2 variables

- year
Year of minting

- age_in_2011
Age in 2011

StatCrunch https://www.statcrunch.com/app/index.php?dataid=301596

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ```
library(dplyr)
library(ggplot2)
# Take 50 different resamples/bootstraps from the original sample
many_bootstraps <- orig_pennies_sample %>%
rep_sample_n(size = 40, replace = TRUE, reps = 50)
many_bootstraps
# Compute mean year of minting for each bootstrap sample
bootstrap_means <- many_bootstraps %>%
group_by(replicate) %>%
summarize(mean_year = mean(year))
# Plot sampling distribution
ggplot(bootstrap_means, aes(x = mean_year)) +
geom_histogram(binwidth = 1, color = "white") +
labs(
x = expression(bar(x)), y = "Number of samples",
title = "Bootstrap distribution of x_bar based 50 resamples of size n = 40"
)
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.