期中期中作業2

data <- c(84,63,61,49,89,51,59,53,79,91)
mean(data)

## [1] 67.9

median(data)

## [1] 62

as.numeric(names(table(data)))[which.max(table(data))]

## [1] 49

sd(data)

## [1] 16.25115

var(data)

## [1] 264.1

quantile(data, 1 / 4) 

##  25% 
## 54.5

quantile(data, 3 / 4) 

##   75% 
## 82.75