Uji Normalitas Populasi

nilai = read.delim(file.choose(), header = TRUE)
nilai

##    Data
## 1    40
## 2    50
## 3    50
## 4    60
## 5    60
## 6    60
## 7    70
## 8    70
## 9    70
## 10   70
## 11   80
## 12   80
## 13   80
## 14   90
## 15   90
## 16  100

x = nilai$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

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)