> trout.acov <- lm(lhead ~ kl + wl + lbodydev -1)     ## -1 means no intercept
> 
> summary(trout.acov)

Call:
lm(formula = lhead ~ kl + wl + lbodydev - 1)

Residuals:
      Min        1Q    Median        3Q       Max 
-0.067260 -0.017221 -0.004381  0.017632  0.055457 

Coefficients:
         Estimate Std. Error t value Pr(>|t|)    
kl       1.782711   0.003629  491.30   <2e-16 ***
wl       1.798845   0.008179  219.94   <2e-16 ***
lbodydev 1.002085   0.020727   48.35   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

Residual standard error: 0.02561 on 57 degrees of freedom
Multiple R-squared: 0.9998,     Adjusted R-squared: 0.9998 
F-statistic: 9.803e+04 on 3 and 57 DF,  p-value: < 2.2e-16