library(stargazer)
##
## Please cite as:
## Hlavac, Marek (2022). stargazer: Well-Formatted Regression and Summary Statistics Tables.
## R package version 5.2.3. https://CRAN.R-project.org/package=stargazer
options(scipen = 99999)
load("C:/Users/abyme/Downloads/datos_parcial.RData")
modelo<-lm(formula = income~sex+status+verbal+gamble,data = teengamb)
library(stargazer)
stargazer(modelo,title="Ecuacion de Ingreso",type="text")
##
## Ecuacion de Ingreso
## ===============================================
## Dependent variable:
## ---------------------------
## income
## -----------------------------------------------
## sex 0.090
## (1.072)
##
## status -0.063*
## (0.032)
##
## verbal 0.247
## (0.265)
##
## gamble 0.072***
## (0.015)
##
## Constant 4.411**
## (2.003)
##
## -----------------------------------------------
## Observations 47
## R2 0.458
## Adjusted R2 0.407
## Residual Std. Error 2.736 (df = 42)
## F Statistic 8.877*** (df = 4; 42)
## ===============================================
## Note: *p<0.1; **p<0.05; ***p<0.01
confint(object = modelo,parm = "verbal",level = .925)
## 3.75 % 96.25 %
## verbal -0.2370767 0.730284
confint(object = modelo,parm = "gamble",level = .925)
## 3.75 % 96.25 %
## gamble 0.04492279 0.09936007
library(stargazer)
stargazer(modelo,title = ("Modelo Income"),type = "text",digits = 5)
##
## Modelo Income
## ===============================================
## Dependent variable:
## ---------------------------
## income
## -----------------------------------------------
## sex 0.09035
## (1.07210)
##
## status -0.06279*
## (0.03250)
##
## verbal 0.24660
## (0.26492)
##
## gamble 0.07214***
## (0.01491)
##
## Constant 4.41097**
## (2.00311)
##
## -----------------------------------------------
## Observations 47
## R2 0.45811
## Adjusted R2 0.40650
## Residual Std. Error 2.73594 (df = 42)
## F Statistic 8.87662*** (df = 4; 42)
## ===============================================
## Note: *p<0.1; **p<0.05; ***p<0.01
X<-model.matrix(modelo)
XX<-t(X)%*%(X)
A<-solve(XX)%*%t(X)