Tugas 4

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

#No. 1 mencari mean, median, dan modus

mean(EcoTrack)

## [1] 24.6

median(EcoTrack)

## [1] 23

#modus
tabel_freq <- table(EcoTrack)

names(tabel_freq)[tabel_freq == max(tabel_freq)]

## [1] "22" "23" "24"

#No. 2 mencari Q1, Q3, dan IQR

quantile(EcoTrack, probs = c(0.25, 0.75), type = 6)

## 25% 75% 
##  21  26

IQR(EcoTrack, type = 6)

## [1] 5

Selisih penggunaan 25% bagian bawah dengan 25% bagian atas hanya 5 menit, hal ini menunjuk 50% pengguna bagian tengah memiliki durasi yang relatif Stabil dan terpusat Sehingga tidak terlalu terpengaruh oleh durasi yang ekstrim seperti 45 menit

#No. 3 mencari varians dan standar deviasi

var(EcoTrack)

## [1] 41.54286

sd(EcoTrack)

## [1] 6.445375

Varians tinggi

#No. 4 mencari skewness dan arah kemencengannya

library(moments)
skewness(EcoTrack)

## [1] 2.212573

arah kemiringan ke kanan karena hasilnya positif