gistfile1.txt

> summary(lm(salary ~ log(company) + log(career) + log(usage), salary))

Call:
lm(formula = salary ~ log(company) + log(career) + log(usage), 
    data = salary)

Residuals:
    Min      1Q  Median      3Q     Max 
-3395.1 -1273.9  -309.8  1287.5  6695.5 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)   
(Intercept)   1691.74     712.71   2.374  0.02166 * 
log(company)   -79.32     128.80  -0.616  0.54093   
log(career)   1220.21     374.29   3.260  0.00205 **
log(usage)    1193.25     400.13   2.982  0.00449 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 2025 on 48 degrees of freedom
  (1 observation deleted due to missingness)
Multiple R-squared:  0.4592,	Adjusted R-squared:  0.4254 
F-statistic: 13.59 on 3 and 48 DF,  p-value: 1.524e-06