temp

This is the title

This is the subtitle

this is the text

To create a chunk: shortcut control alt

## how much longer can the students stand being in the class?

minutes <- c(35, 30, 44, 28, 30, 60, 35, 45, 30, 60, 45, 120, 60, 50, 60, 30, 30)
mean(minutes)

## [1] 46.58824

sd(minutes)

## [1] 22.5307

median(minutes)

## [1] 44

this is a bloxplot of minutes

boxplot(minutes)