> fit<-lm(lifetime~make+speed,lathe)

> summary(fit)

Call:
lm(formula = lifetime ~ make + speed, data = lathe)

Residuals:
      Min        1Q    Median        3Q       Max 
-5.552684 -1.786752 -0.001612  1.839470  4.983763 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept) 36.98560    3.51038  10.536 7.16e-09 ***
makeB       15.00425    1.35967  11.035 3.59e-09 ***
speed       -0.02661    0.00452  -5.887 1.79e-05 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 

Residual standard error: 3.039 on 17 degrees of freedom
Multiple R-Squared: 0.9003,     Adjusted R-squared: 0.8886 
F-statistic: 76.75 on 2 and 17 DF,  p-value: 3.086e-09 

> anova(fit)

Analysis of Variance Table

Response: lifetime
          Df  Sum Sq Mean Sq F value    Pr(>F)    
make       1 1097.87 1097.87 118.836 4.309e-09 ***
speed      1  320.17  320.17  34.656 1.793e-05 ***
Residuals 17  157.05    9.24                      
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1