tugas pertemuan 4

Data

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

1. Mean, Median, Modus

(Mean = 24,6) (Median = 23) (Modus = 22,23,24)

mean(x); median(x)

## [1] 24.6

## [1] 23

tab <- table(x); as.numeric(names(tab)[tab == max(tab)])

## [1] 22 23 24

2. IQR

(Q1 = 21) (Q3 = 26) (IQR = 5)

quantile(x, c(.25,.75), type = 6); IQR(x, type = 6)

## 25% 75% 
##  21  26

## [1] 5

3. Varians dan SD

(Varians = 41,54) (Standar Deviasi = 6,45) (Koefisien Variasi = 26,2%)

var(x); sd(x); sd(x)/mean(x)*100

## [1] 41.54286

## [1] 6.445375

## [1] 26.20071

4. Skewness

Pearson = 0,74 skewness(x) (type 3, default e1071) = 1,99 skewness(x, type = 1) = 2,21

3*(mean(x) - median(x))/sd(x)

## [1] 0.7447201

skewness(x); skewness(x, type = 1)

## [1] 1.995046

## [1] 2.212573