Pertemuan_4_Uji Normalitas Populasi dengan Uji KolmogorovSmirnov

# --- OPSI A: Membaca dari file CSV (Sesuai Gambar 6.4 di Bab 6) ---
simpan = read.csv2(file.choose(), header = TRUE)
simpan

##    Nomor Nama Nilai
## 1      1    A    60
## 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    60
## 12    12    M    60
## 13    13    N    80
## 14    14    O    90
## 15    15    P    90
## 16    16    Q    80

nilai = simpan$Nilai


# 1. Uji Normalitas Kolmogorov-Smirnov
library(nortest)
lillie.test(nilai)

## 
##  Lilliefors (Kolmogorov-Smirnov) normality test
## 
## data:  nilai
## D = 0.22764, p-value = 0.02619

# 2. Uji Normalitas Jarque-Bera (Opsional sesuai Bab 6)
library(e1071)
library(tseries)

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

skewness(nilai, type=1)

## [1] 0.4895556

kurtosis(nilai, type=1) + 3

## [1] 2.323251

jarque.bera.test(nilai)

## 
##  Jarque Bera Test
## 
## data:  nilai
## X-squared = 0.94443, df = 2, p-value = 0.6236

# 3. Uji Normalitas dengan Q-Q Plot
qqnorm(nilai)
qqline(nilai)