u1a3

Prueba de hipóstesis para un experimento

Se utilizarán datos de google trends para analizar si existe una relación entre las búsquedas de género pop y Ricardo Montaner.

Importar datos

library(readr) 
library(DT) 
library(prettydoc) 
setwd("~/EAMJ1130/u1a3")
datos <-read_csv("datos.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   pop = col_double(),
##   ricardomontaner = col_double()
## )

Visualizar

Gráfica de google trends

A observación, en la fecha de Junio 2019 es cuando hay una mayor correlación entre el género pop y Ricardo Montaner

Tabla

datatable(datos)

Gráficas

Se observará la relación entre las variables por medio de una matriz de diagramas de dispersión.

pairs(datos)

Inferencias

¿Existe una correlación entre el género pop y Ricardo Montaner?

cor(datos)

##                         pop ricardomontaner
## pop              1.00000000     -0.01518177
## ricardomontaner -0.01518177      1.00000000

No hubo una correlación, ya que el índice de Pearson fue de -0.015.

Cálculo y representación de la recta de mínimos cuadrados

regresion=lm(ricardomontaner~pop,data=datos)
summary(regresion)

## 
## Call:
## lm(formula = ricardomontaner ~ pop, data = datos)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -7.3062 -3.3157 -2.0872  0.9128 27.7128 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 13.658539   2.180608   6.264 1.56e-09 ***
## pop         -0.009523   0.038970  -0.244    0.807    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 6.232 on 259 degrees of freedom
## Multiple R-squared:  0.0002305,  Adjusted R-squared:  -0.00363 
## F-statistic: 0.05971 on 1 and 259 DF,  p-value: 0.8071

Ecuación de la recta de mínimos cuadrados \(Y\) \[ Y=13.658539 -0.009523x \] Con ésta ecuación podemos modelar y predecir valores