Bab-6.R

###############################################
#NAMA: ANDI ARTIKA OCTAVIANI
#NIM: 2502056031
#MATA KULIAH: STATISTIK SOSIAL
###############################################

######################BAB 6####################

normalitas=read.csv("~/statistika sem 3/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("~/statistika sem 3/normalitas.csv")
x=normalitas$Data

qqnorm(x)
qqline(x)