Ejercicio 1.2

set.seed(1002528620)
NDVI=round(rnorm(n=120, mean=0.16, sd=0.021),2) #NDVI JUNIO
MODIS=round(rnorm(n=120, mean=0.17, sd=0.025),2)
NDVI
##   [1] 0.13 0.16 0.17 0.18 0.16 0.18 0.14 0.17 0.18 0.15 0.10 0.18 0.17 0.17 0.14
##  [16] 0.16 0.15 0.15 0.18 0.11 0.18 0.15 0.19 0.15 0.17 0.15 0.16 0.18 0.13 0.17
##  [31] 0.17 0.21 0.18 0.22 0.17 0.18 0.18 0.18 0.13 0.18 0.16 0.14 0.20 0.14 0.13
##  [46] 0.19 0.14 0.15 0.17 0.18 0.14 0.17 0.18 0.14 0.18 0.19 0.17 0.18 0.13 0.17
##  [61] 0.18 0.16 0.19 0.18 0.16 0.13 0.16 0.17 0.17 0.14 0.16 0.16 0.15 0.12 0.13
##  [76] 0.16 0.16 0.14 0.19 0.15 0.16 0.16 0.17 0.14 0.15 0.18 0.18 0.13 0.19 0.20
##  [91] 0.18 0.14 0.18 0.13 0.16 0.17 0.17 0.15 0.17 0.17 0.18 0.17 0.15 0.15 0.13
## [106] 0.16 0.17 0.15 0.14 0.14 0.17 0.17 0.15 0.16 0.17 0.11 0.13 0.15 0.15 0.17
MODIS
##   [1] 0.14 0.16 0.15 0.16 0.14 0.17 0.19 0.19 0.22 0.19 0.15 0.18 0.17 0.19 0.14
##  [16] 0.16 0.13 0.16 0.14 0.17 0.17 0.20 0.21 0.15 0.18 0.19 0.17 0.19 0.19 0.16
##  [31] 0.14 0.18 0.15 0.13 0.12 0.14 0.16 0.19 0.21 0.15 0.15 0.17 0.18 0.18 0.12
##  [46] 0.20 0.17 0.15 0.16 0.17 0.20 0.14 0.21 0.20 0.13 0.18 0.14 0.16 0.16 0.13
##  [61] 0.16 0.16 0.19 0.12 0.19 0.15 0.17 0.17 0.18 0.17 0.17 0.19 0.18 0.17 0.21
##  [76] 0.18 0.19 0.17 0.17 0.13 0.19 0.17 0.14 0.17 0.20 0.19 0.20 0.13 0.22 0.15
##  [91] 0.12 0.18 0.18 0.17 0.15 0.19 0.17 0.16 0.18 0.18 0.24 0.17 0.16 0.17 0.18
## [106] 0.16 0.20 0.21 0.17 0.17 0.18 0.21 0.20 0.19 0.18 0.19 0.17 0.18 0.16 0.13
  1. ASUMA VARIANZAS IGUALES
t.test(NDVI,MODIS, mu=0, var.equal = T)
## 
##  Two Sample t-test
## 
## data:  NDVI and MODIS
## t = -3.2337, df = 238, p-value = 0.001395
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.015287507 -0.003712493
## sample estimates:
## mean of x mean of y 
##    0.1610    0.1705

la hipotesis nula se rechaza ya que el p-value es menor al 5%

  1. PRUEBA IGUALDAD DE VARIANZAS
var.test(NDVI,MODIS,ratio = 1)
## 
##  F test to compare two variances
## 
## data:  NDVI and MODIS
## F = 0.76147, num df = 119, denom df = 119, p-value = 0.1386
## alternative hypothesis: true ratio of variances is not equal to 1
## 95 percent confidence interval:
##  0.5306928 1.0926007
## sample estimates:
## ratio of variances 
##          0.7614692

la hipotesis nula no se rechaza ya que el p-value es del 13.86%

Ejercicio 1.3

set.seed(1002528620)
NDVIA=round(rnorm(n = 120,mean = 0.14, sd = 0.022),2) #NDVI AGOSTO
NDVIA
##   [1] 0.11 0.14 0.15 0.17 0.14 0.16 0.11 0.15 0.16 0.13 0.08 0.16 0.15 0.15 0.12
##  [16] 0.14 0.12 0.13 0.16 0.09 0.16 0.13 0.17 0.13 0.15 0.13 0.14 0.16 0.11 0.15
##  [31] 0.15 0.19 0.16 0.20 0.15 0.16 0.16 0.16 0.11 0.16 0.14 0.12 0.18 0.12 0.11
##  [46] 0.17 0.12 0.13 0.15 0.16 0.12 0.15 0.16 0.12 0.16 0.17 0.15 0.16 0.11 0.15
##  [61] 0.16 0.14 0.18 0.16 0.14 0.11 0.14 0.15 0.15 0.12 0.14 0.14 0.13 0.10 0.11
##  [76] 0.14 0.14 0.12 0.18 0.12 0.14 0.14 0.15 0.12 0.13 0.17 0.16 0.10 0.17 0.18
##  [91] 0.16 0.12 0.16 0.11 0.14 0.15 0.15 0.13 0.15 0.15 0.16 0.15 0.13 0.13 0.11
## [106] 0.14 0.15 0.13 0.12 0.12 0.15 0.15 0.13 0.14 0.16 0.09 0.11 0.13 0.13 0.15
t.test(NDVI,NDVIA,mu = 0,alternative = "l",paired = T)
## 
##  Paired t-test
## 
## data:  NDVI and NDVIA
## t = 79.371, df = 119, p-value = 1
## alternative hypothesis: true difference in means is less than 0
## 95 percent confidence interval:
##        -Inf 0.02033265
## sample estimates:
## mean of the differences 
##              0.01991667

la hipotesis nula no se rechaza ya que es p-value es mayor al 5%