u1a2

Prueba de hipótesis para un experimento

Se utilizarán datos de google trends para analizar si existe una relación entre las búsquedas de Semana Santa con las de Playa.

library(readr) #para leer datos
library(DT) # tablas interactivas
library(prettydoc) #documentos con mejor formato
setwd("~/EAMJ1130") # folder de trabajo
datos <- read_csv("datos.csv") #importar datos

## 
## -- Column specification --------------------------------------------------------
## cols(
##   `Semana Santa` = col_double(),
##   Playa = col_double()
## )

datatable(datos) #visualizar datos en tabla 

¿Existe alguna relación?

• Matriz de coeficientes de correlación

cor(datos)

##              Semana Santa     Playa
## Semana Santa    1.0000000 0.4113206
## Playa           0.4113206 1.0000000

Con un índice de correlación Pearson de 0.41 determinamos que existe una correlación, mas no necesariamente una causalidad.