BAB 6: UJI NORMALITAS POPULASI

Penyelesaian dalam R untuk Uji Normalitas Populasi dengan Uji Kolmogorov-Smirnov

normalitas = read.csv("normalitas.csv")
x = normalitas$Data

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 (Contoh Perhitungan dan Penyelesaian dalam R)

normalitas = read.csv("normalitas.csv")
X = normalitas$Data

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)
jarque.bera.test(X)

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

# Membuat histogram sederhana dari data X
hist(X, 
     main = "Histogram Data", 
     xlab = "Nilai", 
     ylab = "Frequency", 
     col = "skyblue", 
     border = "white")

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

normalitas=read.csv("normalitas.csv")
X=normalitas$Data

qqnorm(X)
qqline(X)