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 reyes magos con las roscas.

dia de reyes

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

## 
## -- Column specification --------------------------------------------------------
## cols(
##   `reyes magos` = col_double(),
##   rosca = col_double()
## )

datatable(datos) #visualizar datos en tabla 

¿Existe alguna relación?

• Matriz de coeficientes de correlación

cor(datos)

##             reyes magos     rosca
## reyes magos   1.0000000 0.9671031
## rosca         0.9671031 1.0000000

Conclusión

Con un índice de correlación Pearson de 0.96 determinamos que existe una correlación.

rosca