Tugas-Bab-6.R

# TUGAS BAB 6
# UJI NORMALITAS POPULASI

# Nama : Tirza Abigail Theodora
# NIM  : 2502056040

normalitas=read.csv("normalitas.csv")

X=normalitas$Data

# ==========================================
# 1. UJI NORMALITAS DENGAN
#    UJI KOLMOGOROV-SMIRNOV
# ==========================================

X=normalitas[[1]]

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

# ==========================================
# 2. UJI NORMALITAS DENGAN
#    UJI JARQUE-BERA
# ==========================================

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

b-a^2

## [1] 82500

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

# ==========================================
# 3. UJI NORMALITAS DENGAN
#    QUANTILE-QUANTILE PLOT (Q-Q PLOT)
# ==========================================

qqnorm(X)

qqline(X)