#This is NOT a way to make a title
my name is sileshi taking a course on data science called data 110
mintes <- c(17,17,40,15,20,20,37,37,15,25,1000,50)
mean(mintes)
## [1] 107.75
median(mintes)
## [1] 22.5
sd(mintes)
## [1] 281.2263
hist(mintes)
## remove outlier
mintes2 <- c(17,17,40,15,20,20,37,37,15,25,50)
hist(mintes2)