BAB6CACA.R

#-----------------------------------------------------------------------------
# BAB 6 UJI NORMALITAS POPULASI
#-----------------------------------------------------------------------------

##############################################################################
# TUGAS STATISTIK SOSIAL                                                     #
# Nama: Chika Shelomita                                                      #
# NIM: 2502056032                                                            #
##############################################################################

#----------------------------------------------------------------------------------
# Penyelesaian dalam R untuk Uji Normalitas Populasi
# dengan Uji Kolmogorov-Smirnov
#----------------------------------------------------------------------------------
normalitas=read.csv("D:/STATSOS/normalitas.csv")
x=normalitas$Data

summary(x)

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

library(nortest) #install package 'nortest' terlebih dahulu
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)
#----------------------------------------------------------------------------------

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)