TUGAS STATISTIKA 3

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

# Urutkan data
sort(data)

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

1. Mean, Median, dan Modus

# Mean
mean(data)

## [1] 24.6

# Median
median(data)

## [1] 23

# Modus
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

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

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

2. Q1, Q3, dan IQR

# Q1
Q1 <- quantile(data, 0.25)

# Q3
Q3 <- quantile(data, 0.75)

# IQR
IQR_data <- IQR(data)

Q1

##  25% 
## 21.5

Q3

##  75% 
## 25.5

IQR_data

## [1] 4

3. Varians dan Standar Deviasi

# Varians
var(data)

## [1] 41.54286

# Standar deviasi
sd(data)

## [1] 6.445375

4. skewness pearson

library(e1071)

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

# Skewness dari e1071
skewness(data, type = 3)

## [1] 1.995046

# Skewness Pearson
3 * (mean(data) - median(data)) / sd(data)

## [1] 0.7447201