#Latar Belakang Aplikasi jejak karbon EcoTrack mencatat menit penggunaan harian dari 15 pengguna aktif dalam satu minggu. Data ini dianalisis dengan statistika deskriptif (ukuran pemusatan, letak, penyebaran, dan bentuk distribusi).

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

length(data_ecotrack)      # banyak data (n)
## [1] 15
sort(data_ecotrack)        # data diurutkan dari kecil ke besar
##  [1] 18 19 20 21 22 22 23 23 24 24 25 26 27 30 45

Soal 1: Mean, Median, dan Modus

  • Mean (rata-rata) = jumlah semua data dibagi banyak data
mean_val <- mean(data_ecotrack)
cat("Mean (Rata-rata):", mean_val, "\n")
## Mean (Rata-rata): 24.6
  • Median (nilai tengah). Data terurut: 18, 19, 20, 21, 22, 22, 23, 23, 24, 24, 25, 26, 27, 30, 45. Karena n = 15 (ganjil), median adalah data ke-8, yaitu 23.
median_val <- median(data_ecotrack)
cat("Median (Nilai Tengah):", median_val, "\n")
## Median (Nilai Tengah): 23
  • Modus (nilai yang paling sering muncul). Nilai 22, 23, dan 24 masing-masing muncul 2 kali, jadi modus = 22, 23, dan 24 (data multimodal, artinya modusnya lebih dari satu).
tabel_frekuensi <- table(data_ecotrack)
modus_val <- as.numeric(names(tabel_frekuensi[tabel_frekuensi == max(tabel_frekuensi)]))
cat("Modus (Nilai paling sering muncul):", modus_val, "\n\n")
## Modus (Nilai paling sering muncul): 22 23 24

Soal 2: Q1, Q3, dan IQR

kuartil <- quantile(data_ecotrack, probs = c(0.25, 0.75))
q1 <- kuartil[1]
q3 <- kuartil[2]
iqr_val <- IQR(data_ecotrack)

cat("Kuartil 1 (Q1):", q1, "\n")
## Kuartil 1 (Q1): 21.5
cat("Kuartil 3 (Q3):", q3, "\n")
## Kuartil 3 (Q3): 25.5
cat("Interquartile Range (IQR):", iqr_val, "\n\n")
## Interquartile Range (IQR): 4

Soal 3: Varians dan Standar Deviasi

varians_val <- var(data_ecotrack)
cat("Varians:", varians_val, "\n")
## Varians: 41.54286
sd_val <- sd(data_ecotrack)
cat("Standar Deviasi (Simpangan Baku):", sd_val, "\n\n")
## Standar Deviasi (Simpangan Baku): 6.445375

Soal 4: Koefisien Skewness Pearson

skew_pearson <- 3 * (mean_val - median_val) / sd_val
cat("Koefisien Skewness Pearson (Manual):", skew_pearson, "\n")
## Koefisien Skewness Pearson (Manual): 0.7447201