R Sandbox
require(coursekata)
set.seed(22)
x <- round(rnorm(1000, mean=15, sd=10), digits=1)
y <- x[x > 5 & x < 30]
TipPct <- sample(y, 44)
TipExperiment$Check <- (TipExperiment$Tip / TipPct) * 100
set.seed(NULL)
# You can use any of the code you have used in the book hereCK Code: code-sandbox