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 verano y playas en un periodo de 5 años.

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(
##   verano = col_double(),
##   playa = col_double()
## )

datatable(datos) #visualizar datos en tabla 

¿Existe alguna relación?

• Matriz de coeficientes de correlación

cor(datos)

##           verano     playa
## verano 1.0000000 0.8782494
## playa  0.8782494 1.0000000

Con un índice de correlación Pearson de 0.87 se puede determinar que existe una correlación alta en cuanto a las busquedas en los ultimos 5 años, lo cual nos dice que no necesariamente es una causalidad.