Analisis Data Penggunaan EcoTrack

Data

Data penggunaan EcoTrack:

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

##  [1] 22 25 19 30 24 21 45 23 20 26 24 22 18 27 23

Soal 1

Hitunglah mean, median, dan modus dari data penggunaan EcoTrack.

mean_data <- mean(data)
median_data <- median(data)

frekuensi <- table(data)
modus <- names(frekuensi[frekuensi == max(frekuensi)])

mean_data

## [1] 24.6

median_data

## [1] 23

modus

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

Penjelasan: Mean adalah nilai rata-rata, median adalah nilai tengah, dan modus adalah nilai yang paling sering muncul.

Hasil: - Mean = 24,6 menit - Median = 23 menit - Modus = 22, 23, dan 24 menit

Soal 2

Tentukan Q1, Q3, dan IQR dari data tersebut.

Q1 <- 21
Q3 <- 26
IQR_data <- Q3 - Q1

Q1

## [1] 21

Q3

## [1] 26

IQR_data

## [1] 5

Penjelasan: Q1 adalah kuartil pertama, Q3 adalah kuartil ketiga, sedangkan IQR adalah selisih antara Q3 dan Q1.

Hasil: - Q1 = 21 - Q3 = 26 - IQR = 5

Soal 3

Hitunglah varians dan standar deviasi dari data tersebut.

varians <- var(data)
standar_deviasi <- sd(data)

varians

## [1] 41.54286

standar_deviasi

## [1] 6.445375

Penjelasan: Varians menunjukkan penyebaran data terhadap rata-rata, sedangkan standar deviasi menunjukkan seberapa jauh data menyimpang dari rata-rata.

Hasil: - Varians sampel = 41,54 - Standar deviasi sampel = 6,45 menit

Soal 4

Tentukan nilai skewness menggunakan koefisien skewness Pearson dan interpretasikan hasilnya.

skewness <- 3 * (mean(data) - median(data)) / sd(data)

skewness

## [1] 0.7447201

Penjelasan: Nilai skewness sekitar 0,74. Karena nilainya positif, data menceng ke kanan. Hal ini dipengaruhi oleh adanya nilai yang cukup besar, yaitu 45 menit.

Kesimpulan

Berdasarkan hasil analisis, rata-rata penggunaan EcoTrack adalah 24,6 menit dengan median 23 menit. Modus data adalah 22, 23, dan 24 menit. Nilai IQR sebesar 5, varians sampel sebesar 41,54, dan standar deviasi sebesar 6,45 menit. Nilai skewness sebesar 0,74 menunjukkan bahwa data menceng ke kanan.