1. MENGHITUNG MEAN, MEDIAN, MODUS DATA YANG TERVERIFIKASI RSTUDIO.

DATA

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

sort(data)
##  [1] 18 19 20 21 22 22 23 23 24 24 25 26 27 30 45
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. TENTUKAN Q1 DAN Q3, LALU INTERPRESTASIKAN IQR-NYA DALAM KONTEKS INI.

quantile(data)
##   0%  25%  50%  75% 100% 
## 18.0 21.5 23.0 25.5 45.0
Q1 <- quantile(data, 0.25)
Q3 <- quantile(data, 0.75)
IQR(data)
## [1] 4

3. HITUNG VARIANS DAN STANDAR DEVIASI MENURUT ANDA, APAKAH DATA INI TERGOLONG BERVARIASI TINGGI ATAU RENDAH?

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

4. HITUNG KOEFESIEN SKEWNESS PEARSON DAN TENTUKAN ARAH KEMECENGANNYA; VERIFIKASI DENGAN FUNGSI SKEWNESS() DI R.

mean_data <- mean(data)
median_data <- median(data)
sd_data <- sd(data)

skewness_pearson <- 3 * (mean_data - median_data) / sd_data

skewness_pearson
## [1] 0.7447201
library(e1071)

skewness(data)
## [1] 1.995046