Turn in one copy of the R Script for each group. If group members are not present in class they will be required to complete their own lab to receive credit.

Lab Overview

The entire lab will be worth 100 points.

Questions

Answer the following questions in this R Markdown document. Please include code where necessary.

1. R Shiny with ggplot2

Please modify the default R Shiny applet to include a ggplot2() histogram.

2. R Shiny Options

Next, modify the default R Shiny code to create a histogram based on the central limit theorem to create an R Shiny applet. Shiny should allow you to update the slider to permit between 5 and 100 observations.

CLT.hist <- function(num.obs){
## Function to create a histogram to depict central limit theorem
## data generated from Exponential distribution
## ARGS: num.obs - number of observations from Exponential(1)
num.sims <- 10000
sample.means <- rowMeans(matrix(rexp(num.sims*num.obs),nrow = num.sims, ncol = num.obs))
hist(sample.means,prob=T, xlab='', breaks=seq(0,8,by=.2))
}