library(readxl)
## Warning: package 'readxl' was built under R version 3.6.1
X2007sep <- read_excel("2007sep.xlsx")
View(X2007sep)

Salinidad <- (X2007sep$PPM)
PH <- (X2007sep$PH)
hist (Salinidad)

summary(Salinidad)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   313.6  1056.0  2169.6  2811.5  4761.6  6502.4
#Indice de correlaci昼㸳n entre PPM y PH 
cor(Salinidad,PH)
## [1] -0.544348