#Carga de Datos
library(readxl)
datos <- read_excel("C:/Users/Santiago/Downloads/Oceanografia_Dataset.xlsx")
##Prueba de normalidad (Profundidad vs salinidad)

shapiro.test(datos$Profundidad_del_agua_m)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Profundidad_del_agua_m
## W = 0.95246, p-value = 2.341e-16
#Prueba de normalidad para otro valor

shapiro.test(datos$Salinidad_ppm)
## 
##  Shapiro-Wilk normality test
## 
## data:  datos$Salinidad_ppm
## W = 0.958, p-value = 2.759e-15

Al ser valores menores a alfa, se rechaza la hipotesis 0, por lo que ninguno de las variables están normalmente distribuidos

#Prueba de independencia (Tipo de fondo marino vs Presencia de coral)
tabla <- table(datos$Tipo_fondo_marino, datos$Presencia_corales)

#Prueba de chi-cuadrado
chisq.test(tabla)
## 
##  Pearson's Chi-squared test
## 
## data:  tabla
## X-squared = 3.4607, df = 2, p-value = 0.1772

Como el p valor es mayor a 0.05, se acepta la hipotesis 0, por lo que los datos si son independientes

#ANOVA (Presencia de alga - pH)
anova_resultado <- aov(datos$pH_agua ~ datos$Presencia_algas, data = datos)
summary(anova_resultado)
##                        Df Sum Sq Mean Sq F value Pr(>F)
## datos$Presencia_algas   2   0.85  0.4255   1.257  0.285
## Residuals             887 300.19  0.3384

Como la probabilidad de F es menor al valor de F, la hipotesis 0 se acepta, por lo que la media de los datos son iguales

#Prueba de Barlett (las mismas de tabla ANOVA)

bartlett.test(datos$pH_agua ~ datos$Presencia_algas, data = datos)
## 
##  Bartlett test of homogeneity of variances
## 
## data:  datos$pH_agua by datos$Presencia_algas
## Bartlett's K-squared = 1.3555, df = 2, p-value = 0.5078

Como el p-valor es mayor al alfa, de 0.05, entonces no se rechaza la hipotesis 0, indicando que la varianza entre la presencia de algas y el pH del agua son iguales

#Correlación (Profundidad vs salinidad)

#Si estan normalmente distribuidas, se usa pearson, si no, se usa pierman

cor.test(datos$Profundidad_del_agua_m, datos$Salinidad_ppm)
## 
##  Pearson's product-moment correlation
## 
## data:  datos$Profundidad_del_agua_m and datos$Salinidad_ppm
## t = -0.15225, df = 888, p-value = 0.879
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  -0.07079950  0.06062571
## sample estimates:
##          cor 
## -0.005108955

Al ser la correlación menor a 0, entonces se rechaza la hipotesis 0, indicando que las variables no están correlacionadas entre si