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
quantile(data)
## 0% 25% 50% 75% 100%
## 18.0 21.5 23.0 25.5 45.0
IQR(data)
## [1] 4
var(data)
## [1] 41.54286
sd(data)
## [1] 6.445375
library(e1071)
skewness(data)
## [1] 1.995046
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.