""“1.Importar libreria y documento”""

library(readxl) huatabampo <- read_excel(“huatabampo.xlsx”) View(huatabampo)

""“2.Declarar variables”""

ph = (huatabampo\(PH) salinidad = (huatabampo\)PPM) profundidad =(huatabampo$SNM) pairs(salinidad~ph) #Grafico de correlacion

library(PerformanceAnalytics)

""“3.Integrar los vectores en un marco de datos”""

dat1 = data.frame(salinidad,ph)

chart.Correlation(dat1)

""“4.Grafica que correlaciona dos variables”""

""“Indice de correlacion”"" cor(salinidad,ph)

""“5.Prueba de significancia”"" ""“t de student”"" cor.test(salinidad,ph)

""“Representa los datos catagorizados por modulo en graficos”"" ""“6.Anaslisis exploratorios de datos”"" require(huatabampo)

#Marco Muestral huatabampo <-(huatabampo) dim(huatabampo)

str(huatabampo) nrow(huatabampo)#Nos dice el numero de filas ncol(huatabampo)#nos dice el numero de columnas dim(huatabampo) #nos dice numero de filas y columnas colnames(huatabampo)

""“7.Tablas”""

table(huatabampo\(SNM) table(huatabampo\)POZO) table(huatabampo\(DELNF) table(huatabampo\)CE) table(huatabampo\(PPM) table(huatabampo\)PH) table(huatabampo$TEMP)

""“8.Revisar si los datos son iguales”""

boxplot(huatabampo\(PPM ~ huatabampo\)PH, col = “green”)

""“9.Shapiro nos sirve para normalidad”""

shapiro.test(huatabampo$PPM)

#como existen los datos head(huatabampo)

""“Muestreo aleatorio simple sin estratificar”"" ""“con remplazamiento (los valores SI se repiten)”""

set.seed(20170704) sample(huatabampo$POZO,size=30, replace= TRUE)

set.seed(20170704) sample(huatabampo$POZO,size=30, replace= FALSE)

""“Muestreo por conglomerados”""

set.seed <-(2017071) x <- 1:7 ; x

sample (x, size=5, replace= TRUE )

crime <- data.frame(crimtab) dim(crime) head(crime)

muestramia <- sample(1:nrow(crime), size=n, replace=FALSE) muestramia

""“Hacer data frame”"" crimemuestramia <- crime[muestramia,] head(crimemuestramia) ""“Activar bibloteca”"" library(dplyr) ""“Muestra sin remplazo”"" crimemuestramia2 <- crime %>% sample_n(size=n,replace=FALSE) head(crimemuestramia2) ""“Muestreo con pesos”"" crimemuestramia3 <- crime %>% sample_n(size=n,weight=Freq) head(crimemuestramia3)