Correlation Pop Growth Rate Pct & Income Growth Rate Pct

#What is the correlation coefficient btwn pop growth and inc growth ?  -0.2849001
cor( pop_inc_2$pop_growth_rate_pct , pop_inc_2$Growth_rate_pct)

lmodel<- lm(pop_inc_2$pop_growth_rate_pct ~ pop_inc_2$Income_growth_rate_pct)

#The Intercept  and the slope
lmodel$coefficients
#Intercept             Slope
# 1.3700905            -0.0194357

summary(lmodel)

> summary(lmodel)

Call:
lm(formula = pop_inc_2$pop_growth_rate_pct ~ pop_inc_2$Income_growth_rate_pct)

Residuals:
     Min       1Q   Median       3Q      Max
-0.79338 -0.47389 -0.02078  0.25877  1.56120

Coefficients:
                                  Estimate Std. Error t value          Pr(>|t|)
(Intercept)                       1.370091   0.133368  10.273 0.000000000000172 ***
pop_inc_2$Income_growth_rate_pct -0.019436   0.009642  -2.016            0.0497 *
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.5951 on 46 degrees of freedom
Multiple R-squared:  0.08117,   Adjusted R-squared:  0.06119
F-statistic: 4.064 on 1 and 46 DF,  p-value: 0.04968