statistika

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

## [1] 24.6

median(data)

## [1] 23

# Untuk mencari modus di R:
get_mode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}
get_mode(data)

## [1] 22

ini adalah cara menghitung mean median dan modus

quantile(data, 0.25) # Q1

##  25% 
## 21.5

quantile(data, 0.75) # Q3

##  75% 
## 25.5

IQR(data)

## [1] 4

menghitung quartil 1 dan 3 ddan IQR

var(data) # varians sampel

## [1] 41.54286

sd(data)  #standar deviasi sampel

## [1] 6.445375

menghitung variansi dan standar deviansi

library(e1071)
skewness(data)

## [1] 1.995046