Prueba de hipótesis para un experimento

● Se utilizarán datos de Google Trends para anlizar si existe una relacion entre la búsqueda de pure con las manzanas, ya que desde que era pequeño a mi abuelita solo le gustaba el pure de manzana pero nunca supe si era comun en todos lados o solo era cosa de ella…asi que decidi comprobarlo

Pure de Manzana

library(readr) #para leer datos
library(DT) # tablas interactivas
library(prettydoc) #documentos con mejor formato
setwd("~/Stat") # folder de trabajo
datosPure <- read_csv("datosPure.csv") #importar datos
## 
## -- Column specification --------------------------------------------------------
## cols(
##   Pure = col_double(),
##   Manzana = col_double()
## )
datatable(datosPure) #visualizar datos

¿Existe alguna relación?

● Matriz de coeficientes de correlación

cor(datosPure)
##              Pure   Manzana
## Pure    1.0000000 0.7603831
## Manzana 0.7603831 1.0000000

Con indice de coorelacion de Pearson de 0.76 determinamos que existe una pequeña correlacion mas no una causalidad en estas 2 busquedas.