UJI-NORMALITAS-POPULASI–Kolmogrov-Smirnov–Gambar-6.6—6.11.R

normalitas=read.csv("C:/STATSOS/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

normalitas=read.csv("C:/STATSOS/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                               
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

normalitas=read.csv("C:/STATSOS/normalitas.csv")
X=normalitas$Data

qqnorm(X)
qqline(X)