### PRUEBAS DE NORMALIDAD ###
# Paquetes requeridos
library(nortest)
library(stats)
library(graphics)

### Pruebas graficas ###
# Nombre de datos: "data" 
data=Lote1
hist(data, freq = F)
lines(density(data), col=2, lwd=3)
curve(dnorm(x, mean(data), sd(data)), from=min(data), to=max(data), add=T, col=3, lwd=3)

# Grafica QQ-PLOT 
qqnorm(data)
qqline(data)

### Contrastes de hipotesis para normalidad ###

#Ho:No hay diferencia significativa entre la distribucion evaluada y una distribucion normal
#Ha:Si hay diferencia significativa entre la distribucion evaluada y una distribucion normal
data=Lote20
ks.test(data,"pnorm",mean(data),sd(data))  #Prueba de Kolmogorov-Smirnov
shapiro.test(data)                         #Prueba de Shapiro-wilk
ad.test(data)                              #Prueba de Anderson-Darling 
lillie.test(data)                          #Prueba de Lilliefors