> cat("Elaketulojen perusmalli:\n",
+ "Selitetaan sukupuolella, tyouran tehtavilla",
+ "koulutusasteella, tyouran kestolla ja tutkimusvuodella."  );
Elaketulojen perusmalli:
 Selitetaan sukupuolella, tyouran tehtavilla koulutusasteella, tyouran kestolla ja tutkimusvuodella.
> #####
> summary(m1);

Call:
lm(formula = log(ELAKETUb) ~ MIES + DURURA + JOB1 + JOB2 + JOB3 + 
    JOB4 + EDUCI + TUTKV, data = D)

Residuals:
     Min       1Q   Median       3Q      Max 
-0.99016 -0.16656  0.00014  0.16774  0.89541 

Coefficients:
               Estimate  Std. Error t value             Pr(>|t|)    
(Intercept) -82.0599015   9.3492688  -8.777 < 0.0000000000000002 ***
MIES          0.2602959   0.0131769  19.754 < 0.0000000000000002 ***
DURURA        0.0103318   0.0007911  13.061 < 0.0000000000000002 ***
JOB1         -0.0110467   0.0062657  -1.763              0.07799 .  
JOB2          0.0194573   0.0064526   3.015              0.00259 ** 
JOB3          0.0312503   0.0070703   4.420      0.0000102129409 ***
JOB4         -0.0324931   0.0047671  -6.816      0.0000000000112 ***
EDUCI         0.0366237   0.0035432  10.336 < 0.0000000000000002 ***
TUTKV         0.0442224   0.0046497   9.511 < 0.0000000000000002 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.2573 on 3081 degrees of freedom
  (270 observations deleted due to missingness)
Multiple R-squared:  0.3403,	Adjusted R-squared:  0.3386 
F-statistic: 198.7 on 8 and 3081 DF,  p-value: < 0.00000000000000022


> sink();