---
title: "Lab 8: Shiny and ggplot2"
author: 'Group Member Names - here'
date: "March 6, 2018"
output: html_document
---
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.

```{r}
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))  
}
```