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

1.Mean, Median, Modus

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. Q1, Q3, IQR

quantile(data)
##   0%  25%  50%  75% 100% 
## 18.0 21.5 23.0 25.5 45.0
IQR(data)
## [1] 4

3. Varians dan Standar Deviasi

var(data)
## [1] 41.54286
sd(data)
## [1] 6.445375

4.Skewness

library(e1071)
skewness(data)
## [1] 1.995046

5. Mean, Median, Dan Modus Data Berkelompok

Untuk mean data berkelompok, cari titik tengah setiap kelas, kalikan dengan frekuensi, lalu jumlahkan dan bagi dengan total frekuensi. Untuk median, tentukan kelas median, lalu gunakan rumus dengan batas bawah, frekuensi kumulatif sebelum kelas, frekuensi kelas dan interval. Terakhir untuk modus, pilih kelas dengan frekuensi tertinggi dan gunakan rumus dengan selisih frekuensi kelas modus dengan kelas sebelumnya dan sesudahnya.