result1<- lm(Score~GDP.per.capita+Social.support, data=worldhappiness)
result2<-lm(Score~Healthy.life.expectancy+Freedom.to.make.life.choices, data=worldhappiness)
result3<-lm(Score~Generosity+Perceptions.of.corruption, data=worldhappiness)
result4<-lm(Score~GDP.per.capita+Social.support+Healthy.life.expectancy+
Freedom.to.make.life.choices+Generosity+Perceptions.of.corruption, data=worldhappiness)
stargazer(result1, result2, result3, result4, type="text")##
## ==============================================================================================================================
## Dependent variable:
## -------------------------------------------------------------------------------------------------
## Score
## (1) (2) (3) (4)
## ------------------------------------------------------------------------------------------------------------------------------
## GDP.per.capita 1.346*** 0.775***
## (0.187) (0.218)
##
## Social.support 1.538*** 1.124***
## (0.250) (0.237)
##
## Healthy.life.expectancy 3.030*** 1.078***
## (0.225) (0.335)
##
## Freedom.to.make.life.choices 2.404*** 1.455***
## (0.380) (0.375)
##
## Generosity -0.655 0.490
## (0.921) (0.498)
##
## Perceptions.of.corruption 4.756*** 0.972*
## (0.928) (0.542)
##
## Constant 2.330*** 2.266*** 5.002*** 1.795***
## (0.212) (0.180) (0.187) (0.211)
##
## ------------------------------------------------------------------------------------------------------------------------------
## Observations 156 156 156 156
## R2 0.704 0.689 0.152 0.779
## Adjusted R2 0.700 0.685 0.140 0.770
## Residual Std. Error 0.610 (df = 153) 0.624 (df = 153) 1.032 (df = 153) 0.534 (df = 149)
## F Statistic 181.691*** (df = 2; 153) 169.780*** (df = 2; 153) 13.660*** (df = 2; 153) 87.618*** (df = 6; 149)
## ==============================================================================================================================
## Note: *p<0.1; **p<0.05; ***p<0.01