> skew(ED3$`Edad Defuncion`)/sqrt(6/nrow(ED3)) [1] -5.676782 > kurtosi(ED3$`Edad Defuncion`)/sqrt(6/nrow(ED3)) [1] 0.7084349 > shapiro.test(ED3$`Edad Defuncion`) Shapiro-Wilk normality test data: ED3$`Edad Defuncion` W = 0.94881, p-value = 2.953e-09 > ks.test(ED3$`Edad Defuncion`, "pnorm", mean(ED3$`Edad Defuncion`, na.rm=T), sd(ED3$`Edad Defuncion`,na.rm=T)) Asymptotic one-sample Kolmogorov-Smirnov test data: ED3$`Edad Defuncion` D = 0.10991, p-value = 0.0007235 alternative hypothesis: two-sided