Tugas_Pertemuan 4_Paji

DATA ECTRACK

Aplikasi EcoTrack mencatat menit penggunaan harian dari 15 pengguna aktif dalam satu minggu.

Data yang digunakan adalah:

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

Persiapan Data

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

# Melihat data
data

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

# Mengurutkan data
data_urut <- sort(data)
data_urut

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

# Jumlah data
length(data)

## [1] 15

## Soal 1: Mean, Median, dan Modus

# Mean
mean(data)

## [1] 24.6

# Median
median(data)

## [1] 23

# Tabel frekuensi
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

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

modus

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

cat("Mean =", mean(data), "\n")

## Mean = 24.6

cat("Median =", median(data), "\n")

## Median = 23

cat("Modus =", paste(modus, collapse = ", "), "\n")

## Modus = 22, 23, 24

## Soal 2: Q1 (25%), Q3(75%), dan IQR pakai type = 6
quantile(data, probs = c(0.25, 0.75), type =6 )

## 25% 75% 
##  21  26

IQR(data, type = 6)

## [1] 5

## Soal 3: Varians dan Standar Deviasi

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

varians

## [1] 41.54286

sd_data

## [1] 6.445375

## Soal 4: Skewness (Distribusi)

library(moments)

#menghitung Skewness
skewness(data)

## [1] 2.212573