> x <- c(46,50,48,45,31,45,50,18,28,24,34,20,28,13,13)

> y <- c(55,55,59,56,68,63,53,79,72,72,68,71,72,82,81)

> countries15 <- lm(y ~ x)

> summary(countries15)

Call:
lm(formula = y ~ x)

Residuals:
   Min     1Q Median     3Q    Max 
-5.039 -1.684  0.080  1.553  4.394 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept) 89.98517    1.76457   50.99 2.32e-16 ***
x           -0.69732    0.04985  -13.99 3.26e-09 ***

Residual standard error: 2.537 on 13 degrees of freedom
Multiple R-squared:  0.9377,	Adjusted R-squared:  0.9329 
F-statistic: 195.7 on 1 and 13 DF,  p-value: 3.259e-09

> x
 [1] 46 50 48 45 31 45 50 18 28 24 34 20 28 13 13

> y
 [1] 55 55 59 56 68 63 53 79 72 72 68 71 72 82 81

 x is the birthrate variable from countries15.sav SPSS (week #1)
 y is the female life expectancy