Taller Análisis Estadístico. 4to Corte.

# Datos de Dureza y Edad geológica
dureza <- c(3.71, 7.45, 1.05, 5.97, 1.16, 2.3, 7.88, 2.87, 2.5, 3.16, 6.1)
edad_geologica <- c(44, 20, 204, 7, 95, 26, 163, 172, 30, 201, 64)

# Prueba de normalidad para Dureza
resultado_dureza <- shapiro.test(dureza)
print("Prueba de normalidad para Dureza:")

## [1] "Prueba de normalidad para Dureza:"

print(resultado_dureza)

## 
##  Shapiro-Wilk normality test
## 
## data:  dureza
## W = 0.90597, p-value = 0.2184

if(resultado_dureza$p.value > 0.05){
  print("No se rechaza la hipótesis nula, los datos de Dureza parecen provenir de una distribución normal.")
} else {
  print("Se rechaza la hipótesis nula, los datos de Dureza no parecen provenir de una distribución normal.")
}

## [1] "No se rechaza la hipótesis nula, los datos de Dureza parecen provenir de una distribución normal."

# Prueba de normalidad para Edad geológica
resultado_edad_geologica <- shapiro.test(edad_geologica)
print("\nPrueba de normalidad para Edad geológica:")

## [1] "\nPrueba de normalidad para Edad geológica:"

print(resultado_edad_geologica)

## 
##  Shapiro-Wilk normality test
## 
## data:  edad_geologica
## W = 0.85718, p-value = 0.05293

if(resultado_edad_geologica$p.value > 0.05){
  print("No se rechaza la hipótesis nula, los datos de Edad geológica parecen provenir de una distribución normal.")
} else {
  print("Se rechaza la hipótesis nula, los datos de Edad geológica no parecen provenir de una distribución normal.")
}

## [1] "No se rechaza la hipótesis nula, los datos de Edad geológica parecen provenir de una distribución normal."