library(rio)
library(knitr)
library(modelsummary)## `modelsummary` 2.0.0 now uses `tinytable` as its default table-drawing
## backend. Learn more at: https://vincentarelbundock.github.io/tinytable/
##
## Revert to `kableExtra` for one session:
##
## options(modelsummary_factory_default = 'kableExtra')
## options(modelsummary_factory_latex = 'kableExtra')
## options(modelsummary_factory_html = 'kableExtra')
##
## Silence this message forever:
##
## config_modelsummary(startup_message = FALSE)setwd("C:/Users/User/Downloads")
data=import("dataPeru.xlsx")PREGUNTA1
h1=formula(buenEstado~contribuyentesSunat+peaOcupada+pobTotal)
rl1=lm(h1, data = data)
summary(rl1)##
## Call:
## lm(formula = h1, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -11.061 -2.981 -1.549 3.817 20.033
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.944e+01 2.754e+00 7.060 5.75e-07 ***
## contribuyentesSunat -1.708e-05 3.595e-05 -0.475 0.640
## peaOcupada 8.030e-05 8.449e-05 0.950 0.353
## pobTotal -2.631e-05 2.229e-05 -1.181 0.251
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 7.855 on 21 degrees of freedom
## Multiple R-squared: 0.2086, Adjusted R-squared: 0.0956
## F-statistic: 1.846 on 3 and 21 DF, p-value: 0.1699h2=formula(peaOcupada~contribuyentesSunat+buenEstado)rl2=lm(h2, data = data)
summary(rl2)##
## Call:
## lm(formula = h2, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -91867 -58573 -11166 46174 155851
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.155e+05 3.787e+04 3.049 0.00588 **
## contribuyentesSunat 9.206e-01 1.741e-02 52.872 < 2e-16 ***
## buenEstado -1.412e+03 1.983e+03 -0.712 0.48395
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 74540 on 22 degrees of freedom
## Multiple R-squared: 0.9932, Adjusted R-squared: 0.9926
## F-statistic: 1603 on 2 and 22 DF, p-value: < 2.2e-16