library(tidyverse)
#correlación
load( url ("https://www.dropbox.com/s/fyobx9uswy3qgp3/da taWorld_q.rda?dl=1"))
str(dataWorld_q)
## 'data.frame': 2716 obs. of 25 variables:
## $ country : Factor w/ 194 levels "Afghanistan",..: 1 2 3 4 5 6 7 8 9 10 ...
## $ quinq : Factor w/ 15 levels "1950-1954","1955-1959",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ tfr : num 7.55 6.12 7.45 7.15 4.49 ...
## $ yearSchF : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ contracep : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ age1mar : num NaN NaN 19.6 NaN NaN NaN NaN 22.6 25.3 NaN ...
## $ sanitat : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ water : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ birthSkill: num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ childMort : num 413 259 258 326 136 ...
## $ deathRate : num 37.1 16.3 23.2 35 10.8 ...
## $ extPov : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ famWorkFem: num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ femWork : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ incomePp : num 1084 2034 4104 3298 3648 ...
## $ income10p : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ gini : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ lifExpFem : num 29.2 55.9 43.4 32.7 60.6 ...
## $ lifExpTot : num 33.1 55.3 47.7 37.6 59 ...
## $ maleWork : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ materMort : num NaN NaN NaN NaN NaN ...
## $ vaccMeas : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ schGenEq : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ doctor : num NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN ...
## $ teenFert : num NaN NaN NaN NaN NaN ...
model_5<-lm(lifExpFem~incomePp+income10p+materMort,dataWorld_q)
summary(model_5)
##
## Call:
## lm(formula = lifExpFem ~ incomePp + income10p + materMort, data = dataWorld_q)
##
## Residuals:
## Min 1Q Median 3Q Max
## -14.0749 -1.9982 0.2567 2.3620 20.8190
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.646e+01 7.420e-01 103.05 < 2e-16 ***
## incomePp 1.948e-04 1.393e-05 13.98 < 2e-16 ***
## income10p -9.280e-02 2.071e-02 -4.48 9.16e-06 ***
## materMort -2.395e-02 6.070e-04 -39.46 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 3.829 on 528 degrees of freedom
## (2184 observations deleted due to missingness)
## Multiple R-squared: 0.8594, Adjusted R-squared: 0.8586
## F-statistic: 1076 on 3 and 528 DF, p-value: < 2.2e-16