Ch 5: R code for simulation

[mine-cetinkaya-rundel]

https://github.com/OpenIntroOrg/openintro-statistics/blob/b7e661929a25ca0f7fb530139e1c5aa015f1f459/ch_foundations_for_inf/TeX/ch_foundations_for_inf.tex#L171-L188

• I suggest explicitly writing out 250000000 instead of 250e06 since some students won't be familiar with the latter notation.
• Also, to be explicit I'd define possible_entries as

pop_size <- 250000000
possible entries <- c(rep("support", pop_size * 0.887), rep("not", pop_size * 0.113))

• We're looking for sampled_entries == "support" not "justified", right?

[OpenIntroOrg]

Thanks, all three items are now fixed.