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. 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