tugas 4 statistika

1

data <- c(22,25,19,30,24,21,45,23,20,26,24,22,18,27,23)

mean(data)

## [1] 24.6

median(data)

## [1] 23

table(data)

## data
## 18 19 20 21 22 23 24 25 26 27 30 45 
##  1  1  1  1  2  2  2  1  1  1  1  1

2

quantile(data)

##   0%  25%  50%  75% 100% 
## 18.0 21.5 23.0 25.5 45.0

IQR(data)

## [1] 4

3

var(data)

## [1] 41.54286

sd(data)

## [1] 6.445375

4

library(e1071)

skewness(data)

## [1] 1.995046