temp

This is the title of my document

#This is bad

Now I am going to collect data from my tired students

To create a code chunk: CMD OPTN i

My data students are interested but very tired and this is the amount of time that they are willing to continue listening to me

minutes <- c(17,17,40,15,20,20,37,37,15,15,20,37,15,25,1000,50)

Lets explore this data

mean(minutes)

## [1] 86.25

median(minutes)

## [1] 20

sd(minutes)

## [1] 243.9242

Create a histogram

hist(minutes)

That outlier needs to be removed

minutes2 <- c(17,17,40,15,20,20,37,37,15,15,20,37,15,25,50)

Histogram of minutes2

hist(minutes2)