> for(i in seq(Levs)) { + ### + BY <- Levs[i]; + ### + + + ### + XLIM <- 800; + TLAJI <- c("T","L"); + Tind <- 1; + ## + TLn <- "TYÖTTÖMYYS"; + if(T .... [TRUNCATED] 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2002_strata_IKA10T0" [1] "T" [1] 2002 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 1237 1237 1237 1237 71 65 76 strata(OSITE)=30-39 3951 3951 3951 3951 74 69 81 strata(OSITE)=40-49 5513 5513 5513 5513 79 74 84 strata(OSITE)=50-59 10779 10779 10779 10779 168 159 173 strata(OSITE)=60-64 1087 1087 1087 1087 168 139 196 [1] "L" [1] 2002 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 245 245 245 245 24 18 30 strata(OSITE)=30-39 1172 1172 1172 1172 15 13 18 strata(OSITE)=40-49 1627 1627 1627 1627 19 16 20 strata(OSITE)=50-59 1475 1475 1475 1475 24 19 26 strata(OSITE)=60-64 84 84 84 84 24 13 33 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2003_strata_IKA10T0" [1] "T" [1] 2003 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 1210 1210 1210 1210 47.5 41 54 strata(OSITE)=30-39 3128 3128 3128 3128 54.0 49 58 strata(OSITE)=40-49 4671 4671 4671 4671 50.0 47 55 strata(OSITE)=50-59 7135 7135 7135 7135 72.0 67 79 strata(OSITE)=60-64 603 603 603 603 100.0 77 126 [1] "L" [1] 2003 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 295 295 295 295 9.0 8 12 strata(OSITE)=30-39 1127 1127 1127 1127 12.0 11 13 strata(OSITE)=40-49 1638 1638 1638 1638 11.0 11 12 strata(OSITE)=50-59 1774 1774 1774 1774 13.0 12 13 strata(OSITE)=60-64 114 114 114 114 24.5 18 34 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2004_strata_IKA10T0" [1] "T" [1] 2004 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 1085 1085 1085 1085 61 59 69 strata(OSITE)=30-39 2727 2727 2727 2727 70 65 75 strata(OSITE)=40-49 4041 4041 4041 4041 61 59 66 strata(OSITE)=50-59 6843 6843 6843 6843 96 89 106 strata(OSITE)=60-64 679 679 679 679 166 135 216 [1] "L" [1] 2004 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 144 144 144 144 24 19 27 strata(OSITE)=30-39 588 588 588 588 21 18 25 strata(OSITE)=40-49 1006 1006 1006 1006 21 19 24 strata(OSITE)=50-59 1249 1249 1249 1249 25 22 28 strata(OSITE)=60-64 117 117 117 117 33 23 39 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2005_strata_IKA10T0" [1] "T" [1] 2005 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 914 914 914 914 61 55 67 strata(OSITE)=30-39 2311 2311 2311 2311 61 59 67 strata(OSITE)=40-49 3727 3727 3727 3727 63 60 67 strata(OSITE)=50-59 6381 6381 6381 6381 100 94 109 strata(OSITE)=60-64 681 681 681 681 115 91 168 [1] "L" [1] 2005 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 73 73 73 73 20 16 31 strata(OSITE)=30-39 401 401 401 401 23 19 28 strata(OSITE)=40-49 652 652 652 652 19 16 24 strata(OSITE)=50-59 827 827 827 827 29 25 32 strata(OSITE)=60-64 75 75 75 75 30 24 37 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2006_strata_IKA10T0" [1] "T" [1] 2006 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 800 800 800 800 58.5 54 65 strata(OSITE)=30-39 1971 1971 1971 1971 66.0 61 71 strata(OSITE)=40-49 3154 3154 3154 3154 66.0 61 70 strata(OSITE)=50-59 5530 5530 5530 5530 86.0 80 88 strata(OSITE)=60-64 943 943 943 943 114.0 95 136 [1] "L" [1] 2006 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 43 43 43 43 20 11 51 strata(OSITE)=30-39 250 250 250 250 18 15 24 strata(OSITE)=40-49 491 491 491 491 20 18 26 strata(OSITE)=50-59 672 672 672 672 22 20 26 strata(OSITE)=60-64 105 105 105 105 34 31 48 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2007_strata_IKA10T0" [1] "T" [1] 2007 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 723 723 723 723 57 52 63 strata(OSITE)=30-39 1687 1687 1687 1687 67 61 74 strata(OSITE)=40-49 2767 2767 2767 2767 65 61 70 strata(OSITE)=50-59 5023 5023 5023 5022 83 74 87 strata(OSITE)=60-64 1130 1130 1130 1130 114 90 133 [1] "L" [1] 2007 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 37 37 37 37 16 12 34 strata(OSITE)=30-39 194 194 194 194 28 23 32 strata(OSITE)=40-49 340 340 340 340 24 18 26 strata(OSITE)=50-59 515 515 515 515 24 19 28 strata(OSITE)=60-64 58 58 58 58 25 13 52 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2008_strata_IKA10T0" [1] "T" [1] 2008 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 679 679 679 679 60 54 68 strata(OSITE)=30-39 1502 1502 1502 1502 66 60 74 strata(OSITE)=40-49 2686 2686 2686 2686 77 71 83 strata(OSITE)=50-59 4410 4410 4410 4402 87 81 90 strata(OSITE)=60-64 1082 1082 1082 1082 110 90 120 [1] "L" [1] 2008 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 139 139 139 139 16.0 14 18 strata(OSITE)=30-39 485 485 485 485 14.0 14 16 strata(OSITE)=40-49 779 779 779 779 16.0 15 18 strata(OSITE)=50-59 1003 1003 1003 1003 19.0 17 23 strata(OSITE)=60-64 174 174 174 174 17.5 14 25 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2009_strata_IKA10T0" [1] "T" [1] 2009 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 1342 1342 1342 1342 59 54 65 strata(OSITE)=30-39 2409 2409 2409 2409 61 59 68 strata(OSITE)=40-49 3977 3977 3977 3977 60 57 63 strata(OSITE)=50-59 5846 5846 5846 5795 80 73 86 strata(OSITE)=60-64 1493 1493 1493 1493 101 88 119 [1] "L" [1] 2009 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 1591 1591 1591 1591 12 11 12 strata(OSITE)=30-39 5569 5569 5569 5569 11 11 11 strata(OSITE)=40-49 8534 8534 8534 8534 11 11 11 strata(OSITE)=50-59 8927 8927 8927 8927 12 11 12 strata(OSITE)=60-64 1680 1680 1680 1680 12 12 12 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2010_strata_IKA10T0" [1] "T" [1] 2010 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 999 999 999 999 78 68 86 strata(OSITE)=30-39 1730 1730 1730 1730 89 83 97 strata(OSITE)=40-49 2863 2863 2863 2863 82 76 88 strata(OSITE)=50-59 4492 4492 4492 4386 108 100 115 strata(OSITE)=60-64 1360 1360 1360 1359 132 116 148 [1] "L" [1] 2010 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 391 391 391 391 12 10 13 strata(OSITE)=30-39 1558 1558 1558 1558 11 10 12 strata(OSITE)=40-49 2691 2691 2691 2691 11 10 12 strata(OSITE)=50-59 2998 2998 2998 2998 12 12 13 strata(OSITE)=60-64 674 674 674 674 16 13 20 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2011_strata_IKA10T0" [1] "T" [1] 2011 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 799 799 799 799 87 79 97 strata(OSITE)=30-39 1466 1466 1466 1466 88 80 96 strata(OSITE)=40-49 2466 2466 2466 2466 81 73 87 strata(OSITE)=50-59 3663 3663 3663 3444 102 92 112 strata(OSITE)=60-64 1265 1265 1265 1247 121 109 147 [1] "L" [1] 2011 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 127 127 127 127 15 13 20 strata(OSITE)=30-39 513 513 513 513 16 13 18 strata(OSITE)=40-49 931 931 931 931 18 16 20 strata(OSITE)=50-59 1187 1187 1187 1187 25 23 28 strata(OSITE)=60-64 308 308 308 308 34 28 38 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2012_strata_IKA10T0" [1] "T" [1] 2012 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 752 752 752 752 104 92 116 strata(OSITE)=30-39 1623 1623 1623 1622 91 85 100 strata(OSITE)=40-49 2265 2265 2265 2265 92 86 103 strata(OSITE)=50-59 3297 3297 3297 2995 106 97 116 strata(OSITE)=60-64 1323 1323 1323 1272 115 94 141 [1] "L" [1] 2012 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 165 165 165 165 16 13 22 strata(OSITE)=30-39 717 717 717 717 15 13 18 strata(OSITE)=40-49 1198 1198 1198 1198 13 12 16 strata(OSITE)=50-59 1508 1508 1508 1508 21 18 24 strata(OSITE)=60-64 344 344 344 344 30 22 40 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2013_strata_IKA10T0" [1] "T" [1] 2013 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 903 903 903 872 91 83 103 strata(OSITE)=30-39 1762 1762 1762 1670 93 88 101 strata(OSITE)=40-49 2251 2251 2251 2085 95 89 104 strata(OSITE)=50-59 3326 3326 3326 2766 130 117 145 strata(OSITE)=60-64 1318 1318 1318 1112 120 103 151 [1] "L" [1] 2013 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 213 213 213 213 15.0 12 21 strata(OSITE)=30-39 1094 1094 1094 1094 13.5 12 16 strata(OSITE)=40-49 1650 1650 1650 1650 15.0 13 17 strata(OSITE)=50-59 2239 2239 2239 2239 22.0 20 24 strata(OSITE)=60-64 504 504 504 504 34.0 30 37 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2014_strata_IKA10T0" [1] "T" [1] 2014 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 892 892 892 711 90.5 81 103 strata(OSITE)=30-39 1852 1852 1852 1397 99.0 89 111 strata(OSITE)=40-49 2448 2448 2448 1838 96.0 88 106 strata(OSITE)=50-59 3594 3594 3594 2411 127.0 117 140 strata(OSITE)=60-64 1348 1348 1348 904 141.0 116 164 [1] "L" [1] 2014 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 247 247 247 247 24 20 27 strata(OSITE)=30-39 1128 1128 1128 1128 22 19 24 strata(OSITE)=40-49 1618 1618 1618 1618 22 19 25 strata(OSITE)=50-59 2220 2220 2220 2220 28 26 30 strata(OSITE)=60-64 579 579 579 579 32 28 35 18-29 30-39 40-49 50-59 60-64 22265 60987 96193 138801 25299 [1] "xyplot_tyottlom_kesto_km_2015_strata_IKA10T0" [1] "T" [1] 2015 Summary: Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 305 305 305 103 111 94 NA strata(OSITE)=30-39 720 720 720 222 118 111 NA strata(OSITE)=40-49 808 808 808 266 109 87 NA strata(OSITE)=50-59 1173 1173 1173 401 116 111 NA strata(OSITE)=60-64 429 429 429 149 116 95 NA [1] "L" [1] 2015 Call: survfit(formula = Surv(KESTO, POIS) ~ strata(OSITE), data = D[D$VUOSI0 == BY & D$TLAJI1 == TLAJI[Tind], ]) records n.max n.start events median 0.95LCL 0.95UCL strata(OSITE)=18-29 52 52 52 52 18.5 11 28 strata(OSITE)=30-39 298 298 298 298 23.5 18 29 strata(OSITE)=40-49 497 497 497 497 19.0 15 25 strata(OSITE)=50-59 699 699 699 699 27.0 22 30 strata(OSITE)=60-64 192 192 192 192 24.5 19 29 > sink(); # lopetataan tulotus tied