Prubea de hipóstesis para un experimento
En este pequeño experimento se utilizan datos de google trends para analizar si existe una relación entre las búsquedas de Día de muertos y calaveritas
Importar datos
Bibliotecas y datos
library(readr)
library(DT)
library(prettydoc)
setwd("~/ESTADISTICA APLICADA/U1A2")
datos <-read_csv("datos.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## diademuertos = col_double(),
## calaveritas = col_double()
## )Visualizar imagen
Grafica de Google trends
Al observar el gráfico se observa una correlación entre mediados de octubre y principios de noviembre
tabla
Tabla interactiva con todos los datos
datatable(datos)Gráficas
Con un diagrama de dispercion se observara la relación que existe entre los datos
pairs(datos)
Inferencias
¿Existe una correlación entre día de muertos y las calaveritas?
cor(datos)## diademuertos calaveritas
## diademuertos 1.0000000 0.5393007
## calaveritas 0.5393007 1.0000000Existe una correlacion de 0.70 Pearson, entre el dia de muertos y las calaveritas
Calculo y representación de la recta de minimos cuadrados
regresion = lm (calaveritas ~ diademuertos, data=datos)
summary(regresion)##
## Call:
## lm(formula = calaveritas ~ diademuertos, data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -22.862 -1.322 -1.083 -1.083 63.692
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.84427 1.39953 0.603 0.549
## diademuertos 0.23883 0.05274 4.528 3.7e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 9.672 on 50 degrees of freedom
## Multiple R-squared: 0.2908, Adjusted R-squared: 0.2767
## F-statistic: 20.51 on 1 and 50 DF, p-value: 3.703e-05Ecuación de la recta de mínimos cuadrados \[ y = 0.84427 + 0.23883x \]
Con esta ecuación podemos modelar y predecir valores