Con los datos climáticos tomados desde el día 18/05/2014 a las 17:00hrs en intervalos de 10 min. hasta el día 19/05/2014 hasta las 13:30 horas de dos regiones boscosas (Cumbres en Nuevo León y Ocampo en Coahuila) por el Sistema Meteorológico Nacional, se presenta la siguiente información:
cumbres <-read.csv("C:/MCF202/Data/cumbres.csv", header=TRUE)
head(cumbres)
## DIRS DIRR VELS VELR TEMP HR PB PREC RAD.SOL TEMPCOMB HUMCOMB HUMSUBS
## 1 81 86 2.0 5.4 19.6 52 929.9 0 0 22.5 18 2
## 2 87 72 2.6 5.0 20.6 49 929.9 0 0 23.8 18 2
## 3 67 57 3.2 7.2 21.5 46 929.8 0 0 25.3 18 3
## 4 79 60 2.6 5.4 22.6 40 929.8 0 0 26.8 17 3
## 5 78 90 4.2 7.2 23.5 36 929.7 0 0 28.0 17 2
## 6 37 31 6.1 11.5 24.1 38 929.6 0 0 28.9 16 3
## TEMPSUBS
## 1 21.9
## 2 21.9
## 3 21.9
## 4 21.9
## 5 21.9
## 6 21.9
ocampo <-read.csv("C:/MCF202/Data/ocampo.csv", header=TRUE)
head(ocampo)
## DIRS DIRR VELS VELR TEMP HR PB PREC RAD.SOL TEMPCOMB HUMCOMB HUMSUBS
## 1 142 140 11.9 18.0 22.2 22 833.3 0 0 23.7 43 4
## 2 154 156 12.1 18.0 22.5 21 833.4 0 0 24.7 41 4
## 3 151 139 10.5 19.1 22.9 21 833.5 0 0 25.2 40 4
## 4 158 157 10.5 18.4 23.4 20 833.5 0 0 26.0 37 3
## 5 150 139 12.5 18.7 24.0 19 833.5 0 0 25.6 36 4
## 6 148 152 12.9 20.2 24.5 18 833.5 0 0 25.8 36 4
## TEMPSUBS
## 1 21.9
## 2 21.8
## 3 21.8
## 4 21.8
## 5 21.8
## 6 21.9
Los nombres de las variables son:
names(cumbres)
## [1] "DIRS" "DIRR" "VELS" "VELR" "TEMP" "HR"
## [7] "PB" "PREC" "RAD.SOL" "TEMPCOMB" "HUMCOMB" "HUMSUBS"
## [13] "TEMPSUBS"
mean(ocampo$TEMPCOMB)
## [1] 23.14
boxplot(ocampo$TEMPCOMB, ylab="Temperatura (°C)")
boxplot(ocampo$TEMPCOMB, horizontal= T, xlab="Temperatura (°C)")
t.test(ocampo$TEMPCOMB)
##
## One Sample t-test
##
## data: ocampo$TEMPCOMB
## t = 29.47, df = 137, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 21.59 24.69
## sample estimates:
## mean of x
## 23.14
mean(cumbres$TEMPCOMB)
## [1] 25.87
boxplot(cumbres$TEMPCOMB, ylab="Temperatura (°C)")
boxplot(cumbres$TEMPCOMB, horizontal=T, xlab="Temperatura (°C)")
t.test(cumbres$TEMPCOMB)
##
## One Sample t-test
##
## data: cumbres$TEMPCOMB
## t = 31.22, df = 137, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 24.23 27.51
## sample estimates:
## mean of x
## 25.87
Hipotesis Nula: La media de la humedad de combustible de la estacion Cumbres, Monterrey es igual a la media de la estación Ocampo, Coahuila. ##Media de la estación Ocampo, Coahuila.
mean(ocampo$HUMCOMB)
## [1] 40.68
boxplot(ocampo$HUMCOMB, ylab="Temperatura (°C)")
boxplot(ocampo$HUMCOMB, horizontal=T, xlab= "Temperatura")
t.test(ocampo$HUMCOMB)
##
## One Sample t-test
##
## data: ocampo$HUMCOMB
## t = 22.95, df = 137, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 37.18 44.19
## sample estimates:
## mean of x
## 40.68
mean(cumbres$HUMCOMB)
## [1] 13.91
boxplot(cumbres$HUMCOMB, ylab="Temperatura (°C)")
boxplot(cumbres$HUMCOMB, horizontal=T, xlab="Temperatura(°C)")
t.test(cumbres$HUMCOMB)
##
## One Sample t-test
##
## data: cumbres$HUMCOMB
## t = 51.22, df = 137, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 13.37 14.44
## sample estimates:
## mean of x
## 13.91
Hipotesis Nula: La media de la Temperatura presentada en de la estación Cumbres, Monterrey es igual a la media presentada en la estación Ocampo, Coahuila. ##Media de la estación Ocampo, Coahuila.
mean(ocampo$TEMP)
## [1] 20.95
boxplot(ocampo$TEMP, ylab="Temperatura (°C)")
boxplot(ocampo$TEMP, horizontal=T, xlab="Temperatura (°C)")
t.test(ocampo$TEMP)
##
## One Sample t-test
##
## data: ocampo$TEMP
## t = 44.02, df = 137, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 20.01 21.89
## sample estimates:
## mean of x
## 20.95
mean(ocampo$TEMP)
## [1] 20.95
mean(cumbres$HR)
## [1] 61.33
mean(ocampo$HR)
## [1] 52.27