Bab-6.R

# BAB 6 - Uji Normalitas Populasi

# 1. Input Data
x = c(40, 50, 50, 60, 60, 60, 70, 70, 70, 70, 80, 80, 80, 90, 90, 100)

# 2. Ringkasan Statistik
summary(x)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      40      60      70      70      80     100

# 3. Uji Kolmogorov-Smirnov (Lilliefors)
library(nortest)
lillie.test(x)

## 
##  Lilliefors (Kolmogorov-Smirnov) normality test
## 
## data:  x
## D = 0.125, p-value = 0.7235

# 4. Uji Jarque-Bera
library(tseries)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

jarque.bera.test(x)

## 
##  Jarque Bera Test
## 
## data:  x
## X-squared = 0.30827, df = 2, p-value = 0.8572

# 5. Grafik Q-Q Plot
qqnorm(x)
qqline(x)