inst/snippet/coin-toss.R
In rpruim/fastR: Foundations and Applications of Statistics Using R (2nd Edition)
coinTosses <- data.frame(
outcome = rbinom(1000, 1, 0.5),
toss = 1:1000) %>%
mutate(relFreq = cumsum(outcome) / toss)
gf_hline(yintercept = 0.5, col = "skyblue", size = 1, alpha = 0.8) %>%
gf_line(relFreq ~ toss, data = coinTosses) %>%
gf_labs(title = "Results of 1000 simulated coin tosses",
y = "relative frequency",
x = "number of tosses") %>%
gf_lims(y = c(0, 1))
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
coinTosses <- data.frame(
outcome = rbinom(1000, 1, 0.5),
toss = 1:1000) %>%
mutate(relFreq = cumsum(outcome) / toss)
gf_hline(yintercept = 0.5, col = "skyblue", size = 1, alpha = 0.8) %>%
gf_line(relFreq ~ toss, data = coinTosses) %>%
gf_labs(title = "Results of 1000 simulated coin tosses",
y = "relative frequency",
x = "number of tosses") %>%
gf_lims(y = c(0, 1))
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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.