carga de datos
library(readr)
ejemplo_regresion_ <- read_csv("C:/Users/Luis Anaya/OneDrive/Desktop/ejemplo_regresion.csv")
head(ejemplo_regresion_ ,n=5)
## # A tibble: 5 x 3
## X1 X2 Y
## <dbl> <dbl> <dbl>
## 1 3.92 7298 0.75
## 2 3.61 6855 0.71
## 3 3.32 6636 0.66
## 4 3.07 6506 0.61
## 5 3.06 6450 0.7
carga de datos de un archivo de excel
library(readxl)
ejemplo_regresion_excel <- read_excel("C:/Users/Luis Anaya/OneDrive/Desktop/ejemplo_regresion....xlsx")
head(ejemplo_regresion_excel,n=6)
## # A tibble: 6 x 3
## X1 X2 Y
## <dbl> <dbl> <dbl>
## 1 3.92 7298 0.75
## 2 3.61 6855 0.71
## 3 3.32 6636 0.66
## 4 3.07 6506 0.61
## 5 3.06 6450 0.7
## 6 3.11 6402 0.72
Correr el modelo
library(stargazer)
Modelo_clase <-lm(formula= Y ~X1+X2, data=ejemplo_regresion_)
#Usando summary
summary(Modelo_clase)
##
## Call:
## lm(formula = Y ~ X1 + X2, data = ejemplo_regresion_)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.085090 -0.039102 -0.003341 0.030236 0.105692
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.564e+00 7.940e-02 19.705 1.82e-15 ***
## X1 2.372e-01 5.556e-02 4.269 0.000313 ***
## X2 -2.491e-04 3.205e-05 -7.772 9.51e-08 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0533 on 22 degrees of freedom
## Multiple R-squared: 0.8653, Adjusted R-squared: 0.8531
## F-statistic: 70.66 on 2 and 22 DF, p-value: 2.65e-10
#Usando stargazer
stargazer(Modelo_clase, title="Modelo de Regresión",type="text",digits =6)
##
## Modelo de Regresión
## ===============================================
## Dependent variable:
## ---------------------------
## Y
## -----------------------------------------------
## X1 0.237197***
## (0.055559)
##
## X2 -0.000249***
## (0.000032)
##
## Constant 1.564497***
## (0.079396)
##
## -----------------------------------------------
## Observations 25
## R2 0.865296
## Adjusted R2 0.853050
## Residual Std. Error 0.053302 (df = 22)
## F Statistic 70.660570*** (df = 2; 22)
## ===============================================
## Note: *p<0.1; **p<0.05; ***p<0.01