summary(rlm(calls ~ year, data = phones, maxit = 50))
Call:
rlm(formula = calls ~ year, data = phones, maxit = 50)
Residuals:
   Min     1Q Median     3Q    Max
-18.31  -5.95  -1.68  26.46 173.77
Coefficients:
            Value    Std. Error t value
(Intercept) -102.622   26.553   -3.86
year           2.041    0.429    4.76
Residual standard error: 9.03 on 22 degrees of freedom
Correlation of Coefficients:
[1] -0.994Run the code above in your browser using DataLab