install.packages("readxl")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.4'
## (as 'lib' is unspecified)
library(readxl)
Lectura de datos
# Leer los datos desde un archivo de Excel
datos <- read_excel("Oceanografia_Dataset.xlsx", sheet = "Sheet1")
datos
## # A tibble: 890 × 10
## Profundidad_del_agua_m Temperatura_agua_sup…¹ Salinidad_ppm Tipo_fondo_marino
## <dbl> <dbl> <dbl> <chr>
## 1 2744. 14.3 37.7 roca
## 2 3576. 16.0 35.4 lodo
## 3 3014. 14.6 39.8 arena
## 4 2724. 19.0 30.7 roca
## 5 2118. 21.0 37.7 arena
## 6 3229. 16.4 32.7 lodo
## 7 2188. 30.1 33.7 lodo
## 8 4459. 21.2 32.2 lodo
## 9 4818. 12.9 37.9 arena
## 10 1917. 13.4 31.4 lodo
## # ℹ 880 more rows
## # ℹ abbreviated name: ¹Temperatura_agua_superficial_C
## # ℹ 6 more variables: Presencia_corales <chr>,
## # Concentracion_oxigeno_disuelto_mg_L <dbl>, Presencia_algas <chr>,
## # Velocidad_corriente_m_s <dbl>, Area_geografica <chr>, pH_agua <dbl>
Prueba de normalidad
# Prueba de normalidad para la Dureza
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 la Edad Geológica
shapiro.test(datos$Temperatura_agua_superficial_C)
##
## Shapiro-Wilk normality test
##
## data: datos$Temperatura_agua_superficial_C
## W = 0.94626, p-value < 2.2e-16
Prueba de chi-cuadrado
# Tabla de contingencia
tabla <- table(datos$Tipo_fondo_marino, datos$Area_geografica)
# Prueba de chi-cuadrado
chisq.test(tabla)
##
## Pearson's Chi-squared test
##
## data: tabla
## X-squared = 6.0838, df = 6, p-value = 0.4139
Tabla ANOVA
# ANOVA
anova_resultado <- aov(Temperatura_agua_superficial_C ~ Tipo_fondo_marino, data = datos)
summary(anova_resultado)
## Df Sum Sq Mean Sq F value Pr(>F)
## Tipo_fondo_marino 2 251 125.3 1.033 0.356
## Residuals 887 107603 121.3
Prueba de Bartlett
# Prueba de Bartlett
bartlett.test(Temperatura_agua_superficial_C ~ Tipo_fondo_marino, data = datos)
##
## Bartlett test of homogeneity of variances
##
## data: Temperatura_agua_superficial_C by Tipo_fondo_marino
## Bartlett's K-squared = 0.088212, df = 2, p-value = 0.9569
Prueba de correlación
# Correlación
cor.test(datos$Profundidad_del_agua_m, datos$Temperatura_agua_superficial_C)
##
## Pearson's product-moment correlation
##
## data: datos$Profundidad_del_agua_m and datos$Temperatura_agua_superficial_C
## t = 1.0418, df = 888, p-value = 0.2978
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
## -0.03084501 0.10042386
## sample estimates:
## cor
## 0.03494013