> 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();