1, Mean, Median, dan Modus

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

# Mean (Rata-Rata)
mean_val <- mean(data_ecotrack)
cat("Mean:", mean_val, "\n")
## Mean: 24.6
# Median (Nilai Tengah)
median_val <- median(data_ecotrack)
cat("Median:", median_val, "\n")
## Median: 23
# Modus (Karena R studio tidak ada fungsi bawaan untuk modus dan ada lebih dari 1 modus)
tabel_freq <- table(data_ecotrack)
modus_val <- as.numeric(names(tabel_freq)[tabel_freq == max(tabel_freq)])
cat("Modus:", modus_val, "\n")
## Modus: 22 23 24

2. Q1, Q3, dan IQR

# 2. Q1, Q3, dan IQR

# Kuartil
q1 <- quantile(data_ecotrack, 0.25)
q3 <- quantile(data_ecotrack, 0.75)
cat("Q1:", q1, "\n")
## Q1: 21.5
cat("Q3:", q3, "\n") 
## Q3: 25.5
# Interquartile Range
iqr_val <- IQR(data_ecotrack)
cat("IQR:", iqr_val, "\n")
## IQR: 4

Sebanyak 50% dari total pengguna aplikasi EcoTrack terpusat pada durasi penggunaan antara 21 hingga 26 menit. Hal ini mengindikasikan bahwa variasi durasi aktif bagi kelompok mayoritas ini tergolong sempit, yaitu hanya mencakup selisih waktu 5 menit.

3. Varians dan Standar Deviasi

# Varians Sampel
varians_val <- round(var(data_ecotrack), 2)
cat("Varians:", varians_val, "\n")
## Varians: 41.54
# Standar Deviasi Sampel
sd_val <- round(sd(data_ecotrack), 2)
cat("Standar Deviasi:", sd_val, "\n")
## Standar Deviasi: 6.45
#round untuk membulatkan nilai

Data ini tergolong bervariasi tinggi relatif terhadap rentang mayoritas datanya. Hal ini disebabkan oleh adanya outlier ekstrem pada data, yaitu pengguna yang mencatatkan 45 menit, yang menarik nilai standar deviasi menjadi jauh lebih besar dibanding rentang data lainnya yang berada di angka belasan hingga 30.

4. Koefisien Skewness (Kemencengan)

library(moments)

skewness(data_ecotrack)
## [1] 2.212573

Distribusi durasi penggunaan aplikasi ini memiliki kemencengan positif (ke arah kanan). Asimetri tersebut terjadi karena ekor distribusi ditarik oleh nilai ekstrem 45 menit, sementara sebagian besar data pengguna lainnya terkumpul lebih padat di area nilai yang lebih rendah (belasan hingga 26 menit).