Tugas 4 Statistika

TUGAS PENDALAMAN MATERI

Aplikasi jejak karbon ‘EcoTrack’ mencatat menit penggunaan harian dari 15 pengguna aktif dalam satu minggu:

22, 25, 19, 30, 24, 21, 45, 23, 20, 26, 24, 22, 18, 27, 23

1. Hitung mean, median, dan modus data tersebut secara manual, lalu verifikasi dengan RStudio. (Manual + Rstudio)

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

mean(data_eco)

## [1] 24.6

median(data_eco)

## [1] 23

modus<-function(x){
  u <- unique(x)
  u[which.max(tabulate(match(x,u)))]
}
modus(data_eco)

## [1] 22

2. Tentukan Q1 dan Q3, lalu interpretasikan IQR-nya dalam konteks kasus ini. (Manual + Rstudio)

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

## 25% 75% 
##  21  26

IQR (data_eco, type = 6)

## [1] 5

3. Hitung varians dan standar deviasi; menurut Anda, apakah data ini tergolong bervariasi tinggi atau rendah? (Manual + Rstudio)

var(data_eco)

## [1] 41.54286

sd(data_eco)

## [1] 6.445375

4. Hitung koefisien skewness Pearson dan tentukan arah kemencengannya; verifikasi dengan fungsi skewness() di R. (Rstudio)

library (moments)
skewness(data_eco)

## [1] 2.212573

Distribusi data Menceng Positif / Menceng ke Kanan (Positively Skewed)