ECOTrack

— INPUT DATA —

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

— 1. MEAN, MEDIAN, MODUS —

mean(ecotrack)

## [1] 24.6

median(ecotrack)

## [1] 23

Membuat fungsi modus (karena R tidak punya fungsi default)

get_mode <- function(x) {
  ux <- unique(x)
  tab <- tabulate(match(x, ux))
  ux[tab == max(tab)]
}
get_mode(ecotrack)

## [1] 22 24 23

— 2. Q1, Q3, DAN IQR —

Parameter type = 6 digunakan agar sesuai dengan rumus posisi data i(n+1)/4

quantile(ecotrack, probs = c(0.25, 0.75), type = 6)

## 25% 75% 
##  21  26

IQR(ecotrack, type = 6)

## [1] 5

— 3. VARIANS DAN STANDAR DEVIASI —

var(ecotrack)

## [1] 41.54286

n <- length(ecotrack)
var_pop <- var(ecotrack) * (n - 1) / n
sd_pop <- sqrt(var_pop)
var_pop

## [1] 38.77333

sd_pop

## [1] 6.226824

sd(ecotrack)

## [1] 6.445375

— 4. SKEWNESS —

library(moments)
skewness(ecotrack)

## [1] 2.212573