Análisis de Datos Geológicos

Cargar la base de datos (reemplaza ‘nombre_de_tu_archivo.csv’ con el nombre real del archivo)

datos <- read.csv(“nombre_de_tu_archivo.csv”)

Prueba de normalidad para Edad Geológica

shapiro.test(datos$Edad.Geologica) # Hipótesis nula: los datos siguen una distribución normal

Prueba de normalidad para Dureza

shapiro.test(datos$Dureza) # Hipótesis nula: los datos siguen una distribución normal

Prueba de chi-cuadrado para independencia entre Ubicación y Tipo de Roca

tabla_contingencia <- table(datos\(Ubicacion, datos\)Tipo.de.Roca) chisq.test(tabla_contingencia) # Hipótesis nula: no hay relación entre Ubicación y Tipo de Roca

ANOVA para comparar medias de Edad Geológica y Tipo de Roca

modelo_anova <- aov(Edad.Geologica ~ Tipo.de.Roca, data = datos) summary(modelo_anova) # Hipótesis nula: las medias de Edad Geológica son iguales para todos los tipos de roca

Prueba de Bartlett para comprobar la homogeneidad de las varianzas de Edad Geológica y Tipo de Roca

bartlett.test(Edad.Geologica ~ Tipo.de.Roca, data = datos) # Hipótesis nula: las varianzas son iguales para todos los tipos de roca

Correlación entre Edad Geológica y Dureza

cor(datos\(Edad.Geologica, datos\)Dureza) # Hipótesis nula: no hay correlación entre Edad Geológica y Dureza