Temp

This is the title of my document

My classmates are interested but very tired and this is the amount of time they are willing to continue class.

minutes <- c(14, 17, 16, 50, 47, 47, 1000, 15, 25, 27)

Lets explore the data

mean(minutes)

## [1] 125.8

median(minutes)

## [1] 26

sd(minutes)

## [1] 307.4955

Create a histogram

hist(minutes)

I need to remove the outlier

minutes2 <- c(14, 17, 16, 50, 47, 47, 15, 25, 27)

histogram of minutes 2

hist(minutes2)