#Importar la base de datos
library(readxl)
X2007sep <- read_excel("2007sep.xlsx")
View(X2007sep)


#Para seleccionar variables de la base de datos.
attach(X2007sep)
names(X2007sep)
##  [1] "MODULO" "POZO"   "X"      "Y"      "SNM"    "NF"     "CE"     "PPM"   
##  [9] "PH"     "TEMP"

Con base a los datos previamente vistos yo considero que la temperatura tiene un fuerte impacto sobre la salinidad de los pozos, pues conforme esta aumenta seguramente tambiĆ©n facilita la concentraciĆ³n de sal.

#Grafico de la Salinidad y la temperatura
plot(PPM~TEMP, main= "Relacion entre salinidad y la temperatura", xlab="Temperatura", ylab="Salinidad")

#Ejecucion de la Regresion Lineal en el Grafico
abline(lm(PPM~TEMP))

#Grafico Pairs para correlacion.
pairs(~PPM+TEMP)

library(psych)
pairs.panels(X2007sep[c(8,10)])

#Comando para sacar el Coeficiente de Correlacion
Correlacion=cor(X2007sep$PPM, X2007sep$TEMP)
Correlacion
## [1] 0.2004395

Tal parece que aunque si afecta la temperatura a la condiciĆ³n de las sal de los pozos, esta afectaciĆ³n es realmente mĆ­nima. Ahora se verĆ” que tanto afecta la ubicaciĆ³n a la salinidad.

#Grafico Pairs para correlacion.
pairs(~PPM+X+Y)

library(psych)
pairs.panels(X2007sep[c(3,4,8)])

La correlaciĆ³n no parece ser lo considerablemente suficiente para ser tomada en cuenta.