Tugas_Statistika

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

# hitung mean dan modus data tersebut dengan rstudio
mean(menit)

## [1] 24.6

median(menit)

## [1] 23

modus <- function(x) {
  u <- unique(x)
  u[which.max(tabulate(match(x, u)))]

}
modus(menit)

## [1] 22

# tentukan Q1, Q2, dan Q3 beserta IQR nya
# hitung varians dan standar deviasi & klasifikasikan
menit <- c(18, 19, 20, 21, 22, 22, 23, 23, 24, 24, 25, 26, 27, 30, 45)
quantile(menit, probs = c(0.25, 0.5, 0.75), type = 6)

## 25% 50% 75% 
##  21  23  26

IQR(menit, type = 6)

## [1] 5

var(menit)

## [1] 41.54286

sd(menit)

## [1] 6.445375

menit <- c(18, 19, 20, 21, 22, 22, 23, 23, 24, 24, 25, 26, 27, 30, 45)
mean(menit);  median(menit); sd(menit)

## [1] 24.6

## [1] 23

## [1] 6.445375

library(moments)
skewness(menit) 

## [1] 2.212573

kurtosis(menit)

## [1] 7.879086

Nilai dari fungsi skewness() di R bernilai 2,213 yang artinya menceng positif ke kanan