sample <- c("Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes",
"Yes", "Yes", "No", "No", "No", "No", "No")
tally(sample)X
No Yes
5 11
Bootstrapping
sample <- c("Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes",
"Yes", "Yes", "No", "No", "No", "No", "No")
tally(sample)X
No Yes
5 11
Resample:
resample(sample) [1] "Yes" "Yes" "Yes" "No" "No" "No" "Yes" "Yes" "Yes" "No" "Yes" "No"
[13] "Yes" "Yes" "Yes" "Yes"
Resample again and tally:
tally(resample(sample))X
No Yes
5 11
Resample many times:
do(10000) * tally(resample(sample)) -> bootstrap_dataThis will produce the following data:
glimpse(bootstrap_data)Rows: 10,000
Columns: 2
$ No <int> 5, 9, 4, 4, 5, 8, 3, 4, 4, 6, 8, 5, 4, 6, 5, 7, 5, 3, 5, 4, 6, 4, …
$ Yes <int> 11, 7, 12, 12, 11, 8, 13, 12, 12, 10, 8, 11, 12, 10, 11, 9, 11, 13…
gf_histogram(~Yes, data = bootstrap_data, binwidth = 1, boundary = 0.5)