 R> lm(mpg ~ cyl + disp + hp + wt - 0, data=mtcars)  Call: lm(formula = mpg ~ cyl + disp + hp + wt - 0, data = mtcars)  Coefficients:     cyl     disp       hp       wt    0.0000  -0.0000  -0.0000   0.0000    R> fastLm(mpg ~ cyl + disp + hp + wt - 0, data=mtcars)  Call: fastLm.formula(formula = mpg ~ cyl + disp + hp + wt - 0, data = mtcars)  Coefficients:       cyl      disp        hp        wt   0.000000 -0.000000 -0.000000  0.000000  R> fastLm(