Normalitas Populasi

Uji Normalitas dengan Uji Kolmogorov-Smirnov

normalitas=read.csv("normalitas.csv", sep=";")
normalitas

##    NOMOR NAMA NILAI
## 1      1    A    40
## 2      2    B    50
## 3      3    C    50
## 4      4    D    60
## 5      5    F    60
## 6      6    G    60
## 7      7    H    70
## 8      8    I    70
## 9      9    J    70
## 10    10    K    70
## 11    11    L    80
## 12    12    M    80
## 13    13    N    80
## 14    14    O    90
## 15    15    P    90
## 16    16    Q   100

x=normalitas$NILAI
summary(x)

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

library(nortest)
lillie.test(x)

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

Uji Normalitas Populasi dengan Uji Jarque-Bera

X=normalitas$NILAI

library(e1071)
a=moment(X, order=2, center=TRUE)
b=moment(X, order=4, center=TRUE)
a

## [1] 250

b

## [1] 145000

c=a^2
c

## [1] 62500

kurtosis =b/c
kurtosis

## [1] 2.32

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

Uji Normalitas Populasi dengan Quantile-Quantile Plot (Q-Q Plot)

qqnorm(X)
qqline(X)