summary(model_indimm_unemployed) Call: lm(formula = indimm.supp ~ unemployed, data = immig) Residuals: Min 1Q Median 3Q Max -0.3605 -0.3448 0.1395 0.1552 0.6552 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 0.34481 0.01137 30.327 <2e-16 *** unemployed 0.01567 0.01648 0.951 0.342 --- signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' 1 residual standard error: 0.2757 on 1120 degrees of freedom (11 observations deleted due to missingness) multiple r-squared: 0.0008069, adjusted -8.521e-05 f-statistic: 0.9045 and df, p-value: 0.3418> summary(model_indimm_other) Call: lm(formula = indimm.supp ~ other, data = immig) Residuals: Min 1Q Median 3Q Max -0.3654 -0.3508 0.1346 0.1492 0.6492 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 0.36538 0.02550 14.331 <2e-16 0.587