Regresion lineal simple, recta recta de mínimos cuadrados, ajuste y modelación
library(prettydoc) #para formato de documentos
library(readr) #para leer datos
library(DT)
datos <- read_csv("datos.csv") #importar datos##
## -- Column specification --------------------------------------------------------
## cols(
## Candelaria = col_double(),
## tamales = col_double()
## )Visualizar datos
Tabla
datatable(datos)Gráfica
Matriz de diagramas de dispersión
pairs(datos)
Se logra ver que existe una pequeña relación entre candelaria y tamales, debido a que cuando se acerca esta fecha, las personas buscan la receta para hacer este platillo tradicional, pero normalmente cuando hay apetito de este platillo, puede ser en cualquier fecha del año.
Inferencias
Cálculo y representacion de mínimos cuadrados
regresion <- lm(Candelaria ~ tamales,data=datos)
summary(regresion)##
## Call:
## lm(formula = Candelaria ~ tamales, data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.064 -1.004 -0.322 0.630 36.948
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.73502 0.22672 3.242 0.00134 **
## tamales 0.31736 0.02677 11.855 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.732 on 259 degrees of freedom
## Multiple R-squared: 0.3518, Adjusted R-squared: 0.3493
## F-statistic: 140.5 on 1 and 259 DF, p-value: < 2.2e-16Ecuacion de la recta de mínimos cuadrados \[ y = 0.73502 + 0.31736x \]
Graficación de la recta
plot (datos$Candelaria,datos$tamales,xlab = "Candelaria", ylab = "tamales")
abline(regresion)
cor(datos)## Candelaria tamales
## Candelaria 1.0000000 0.5930883
## tamales 0.5930883 1.0000000Matriz de coeficientes de correlación
Modelación
modelar (predecir) datos usando la recta de mínimos cuadrados
nuevos.tamales <- data.frame(tamales = seq(0,30))
predict(regresion, nuevos.tamales)## 1 2 3 4 5 6 7
## 0.7350217 1.0523854 1.3697491 1.6871127 2.0044764 2.3218401 2.6392038
## 8 9 10 11 12 13 14
## 2.9565675 3.2739311 3.5912948 3.9086585 4.2260222 4.5433858 4.8607495
## 15 16 17 18 19 20 21
## 5.1781132 5.4954769 5.8128405 6.1302042 6.4475679 6.7649316 7.0822953
## 22 23 24 25 26 27 28
## 7.3996589 7.7170226 8.0343863 8.3517500 8.6691136 8.9864773 9.3038410
## 29 30 31
## 9.6212047 9.9385684 10.2559320Como conclusion, podemos ver que existe una minima relacion entre estos dados, ya que el platillo no es esclusivo del dia de la candelaria.