****** 'Egyéni keresztmetszeti súly kezdete ' ******. ****** 'Longitudinális súly előtt kell futtatni ' ******. * '---------------------------------------------------------------'. get file 'd:\Panel99_CD_Elokeszulet\6Hullam\P9234567.sav' /keep case suly92 hazon92 eazon92 rsel92 e1egyen h1attip e1attip e1aneme e1aszul e1iisk hazon93 eazon93 rsel93 e2egyen h2attip e2attip e2aneme e2aszul e2iisk hazon94 eazon94 rsel94 e3egyen h3attip e3attip e3aneme e3aszul e3iisk hazon95 eazon95 rsel95 e4egyen h4attip e4attip e4aneme e4aszul e4iisk hazon96 eazon96 rsel96 e5egyen h5attip e5attip e5aneme e5aszul e5iisk hazon97 eazon97 rsel97 e6egyen h6attip e6attip e6aneme e6aszul e6iisk l2sem0 l2nem0 l3sem0 l3nem0 l4sem0 l4nem0 l5sem0 l5nem0 l6sem0 l6nem0 . execute. *. * 'Súlyozáshoz használt segédváltozók előállítása'. *. numeric kora92 (f2.0). numeric korcs92 (f1.0). numeric iskola92 (f1.0). numeric teltip92 (f1.0). numeric kora93 (f2.0). numeric korcs93 (f1.0). numeric iskola93 (f1.0). numeric teltip93 (f1.0). numeric kora94 (f2.0). numeric korcs94 (f1.0). numeric iskola94 (f1.0). numeric teltip94 (f1.0). numeric kora95 (f2.0). numeric korcs95 (f1.0). numeric iskola95 (f1.0). numeric teltip95 (f1.0). numeric kora96 (f2.0). numeric korcs96 (f1.0). numeric iskola96 (f1.0). numeric teltip96 (f1.0). numeric kora97 (f2.0). numeric korcs97 (f1.0). numeric iskola97 (f1.0). numeric teltip97 (f1.0). variable labels kora92 'Egyén kora 92-ben' /kora93 'Egyén kora 93-ban' /kora94 'Egyén kora 94-ben' /kora95 'Egyén kora 95-ben' /kora96 'Egyén kora 96-ban' /kora97 'Egyén kora 97-ben' /korcs92 'Egyén korcsoportja 92-ben' /korcs93 'Egyén korcsoportja 93-ban' /korcs94 'Egyén korcsoportja 94-ben' /korcs95 'Egyén korcsoportja 95-ben' /korcs96 'Egyén korcsoportja 96-ban' /korcs97 'Egyén korcsoportja 97-ben' /iskola92 'Egyén iskolai végzettsége 92-ben' /iskola93 'Egyén iskolai végzettsége 93-ban' /iskola94 'Egyén iskolai végzettsége 94-ben' /iskola95 'Egyén iskolai végzettsége 95-ben' /iskola96 'Egyén iskolai végzettsége 96-ban' /iskola97 'Egyén iskolai végzettsége 97-ben' /teltip92 'Település típusa 92-ben' /teltip93 'Település típusa 93-ban' /teltip94 'Település típusa 94-ben' /teltip95 'Település típusa 95-ben' /teltip96 'Település típusa 96-ban' /teltip97 'Település típusa 97-ben' . value labels /korcs92 korcs93 korcs94 korcs95 korcs96 korcs97 1 '16 év alatt' 2 '16-29 éves ' 3 '30-39 éves ' 4 '40-49 éves ' 5 '50-59 éves ' 6 '60-xx éves ' /iskola92 iskola93 iskola94 iskola95 iskola96 iskola97 1 '8 ált.vagy alatta' 2 'szakmunkás ' 3 'érettségi ' 4 'főiskola,egyetem ' /teltip92 teltip93 teltip94 teltip95 teltip96 teltip97 1 'tanya,község' 2 'város ' 3 'főváros ' . execute. *. * 'Segédváltozók értékadása'. *. compute kora92 = 92 - e1aszul. compute kora93 = 93 - e2aszul. compute kora94 = 94 - e3aszul. compute kora95 = 95 - e4aszul. compute kora96 = 96 - e5aszul. compute kora97 = 97 - e6aszul. execute. * '1992-es adatok'. if (kora92 < 16) korcs92 = 1. if (kora92 > 15 and kora92 < 30) korcs92 = 2. if (kora92 > 29 and kora92 < 40) korcs92 = 3. if (kora92 > 39 and kora92 < 50) korcs92 = 4. if (kora92 > 49 and kora92 < 60) korcs92 = 5. if (kora92 > 59) korcs92 = 6. if (e1iisk < 6) iskola92 = 1. if (e1iisk = 6) iskola92 = 2. if (e1iisk = 7) iskola92 = 3. if (e1iisk > 7) iskola92 = 4. compute e1attip = h1attip. if (e1attip < 3) teltip92 = 1. if (e1attip = 3) teltip92 = 2. if (e1attip = 4) teltip92 = 2. if (e1attip = 5) teltip92 = 3. execute. * '1993-as adatok'. if (kora93 < 16) korcs93 = 1. if (kora93 > 15 and kora93 < 30) korcs93 = 2. if (kora93 > 29 and kora93 < 40) korcs93 = 3. if (kora93 > 39 and kora93 < 50) korcs93 = 4. if (kora93 > 49 and kora93 < 60) korcs93 = 5. if (kora93 > 59) korcs93 = 6. if (e2iisk < 6) iskola93 = 1. if (e2iisk = 6) iskola93 = 2. if (e2iisk = 7) iskola93 = 3. if (e2iisk > 7) iskola93 = 4. compute e2attip = h2attip. if (e2attip < 3) teltip93 = 1. if (e2attip = 3) teltip93 = 2. if (e2attip = 4) teltip93 = 2. if (e2attip = 5) teltip93 = 3. execute. * '1994-es adatok'. if (kora94 < 16) korcs94 = 1. if (kora94 > 15 and kora94 < 30) korcs94 = 2. if (kora94 > 29 and kora94 < 40) korcs94 = 3. if (kora94 > 39 and kora94 < 50) korcs94 = 4. if (kora94 > 49 and kora94 < 60) korcs94 = 5. if (kora94 > 59) korcs94 = 6. if (e3iisk < 6) iskola94 = 1. if (e3iisk = 6) iskola94 = 2. if (e3iisk = 7) iskola94 = 3. if (e3iisk > 7) iskola94 = 4. compute e3attip = h3attip. if (e3attip < 3) teltip94 = 1. if (e3attip = 3) teltip94 = 2. if (e3attip = 4) teltip94 = 2. if (e3attip = 5) teltip94 = 3. execute. * '1995-ös adatok'. if (kora95 < 16) korcs95 = 1. if (kora95 > 15 and kora95 < 30) korcs95 = 2. if (kora95 > 29 and kora95 < 40) korcs95 = 3. if (kora95 > 39 and kora95 < 50) korcs95 = 4. if (kora95 > 49 and kora95 < 60) korcs95 = 5. if (kora95 > 59) korcs95 = 6. if (e4iisk < 6) iskola95 = 1. if (e4iisk = 6) iskola95 = 2. if (e4iisk = 7) iskola95 = 3. if (e4iisk > 7) iskola95 = 4. compute e4attip = h4attip. if (e4attip < 3) teltip95 = 1. if (e4attip = 3) teltip95 = 2. if (e4attip = 4) teltip95 = 2. if (e4attip = 5) teltip95 = 3. execute. * '1996-os adatok'. if (kora96 < 16) korcs96 = 1. if (kora96 > 15 and kora96 < 30) korcs96 = 2. if (kora96 > 29 and kora96 < 40) korcs96 = 3. if (kora96 > 39 and kora96 < 50) korcs96 = 4. if (kora96 > 49 and kora96 < 60) korcs96 = 5. if (kora96 > 59) korcs96 = 6. if (e5iisk < 6) iskola96 = 1. if (e5iisk = 6) iskola96 = 2. if (e5iisk = 7) iskola96 = 3. if (e5iisk > 7) iskola96 = 4. compute e5attip = h5attip. if (e5attip < 3) teltip96 = 1. if (e5attip = 3) teltip96 = 2. if (e5attip = 4) teltip96 = 2. if (e5attip = 5) teltip96 = 3. execute. * '1997-es adatok'. if (kora97 < 16) korcs97 = 1. if (kora97 > 15 and kora97 < 30) korcs97 = 2. if (kora97 > 29 and kora97 < 40) korcs97 = 3. if (kora97 > 39 and kora97 < 50) korcs97 = 4. if (kora97 > 49 and kora97 < 60) korcs97 = 5. if (kora97 > 59) korcs97 = 6. if (e6iisk < 6) iskola97 = 1. if (e6iisk = 6) iskola97 = 2. if (e6iisk = 7) iskola97 = 3. if (e6iisk > 7) iskola97 = 4. compute e6attip = h6attip. if (e6attip < 3) teltip97 = 1. if (e6attip = 3) teltip97 = 2. if (e6attip = 4) teltip97 = 2. if (e6attip = 5) teltip97 = 3. execute. *. * 'Segédváltozók értékadás vége'. *. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\SulySegéd.sav' /compressed. * '---------------------------------------------------------------'. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\SulySegéd.sav'. execute. numeric cel92k (f4.0). numeric cel93k (f4.0). variable labels cel92k 'Dim.cellák keresztm.sulyhoz 92-ben' /cel93k 'Dim.cellák keresztm.sulyhoz 93-ban' if (rsel92 = 1 and l2nem0 <> 1 and l2nem0 <> 8 or sysmis(l2nem0)) cel92k = e1aneme * 1000 + korcs92 * 100 + iskola92 * 10 + teltip92 . if (rsel93 = 1) cel93k = e2aneme * 1000 + korcs93 * 100 + iskola93 * 10 + teltip93 . sort cases by cel93k. temporary. select if (sysmis(cel93k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav' /break cel93k /k93db = nu. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav' /by = cel93k. execute. variable labels k93db 'cel93k kategória esetszáma 93-ban'. sort cases by cel92k. temporary. select if (sysmis(cel92k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k92db.sav' /break cel92k /k92db = nu. sort cases by cel93k. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k92db.sav' /rename (cel92k = cel93k) /by = cel93k. execute. variable labels k92db 'cel93k kategória esetszáma 92-ben'. numeric egyke93 (f10.8). variable labels egyke93 'Egyéni keresztmetszeti súly 1993'. compute egyke93 = k92db / k93db . frequencies variables egyke93 /stat all. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p93_EgyKe.sav' /compressed /drop cel93k k93db . ********. * 1994 *. ********. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p93_EgyKe.sav'. execute. numeric cel93k (f4.0). numeric cel94k (f4.0). variable labels cel93k 'Dim.cellák keresztm.sulyhoz 93-ban' /cel94k 'Dim.cellák keresztm.sulyhoz 94-ben' if (rsel93 = 1 and l3nem0 <> 1 and l3nem0 <> 8 or sysmis(l3nem0)) cel93k = e2aneme * 1000 + korcs93 * 100 + iskola93 * 10 + teltip93 . if (rsel94 = 1) cel94k = e3aneme * 1000 + korcs94 * 100 + iskola94 * 10 + teltip94 . sort cases by cel94k. temporary. select if (sysmis(cel94k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav' /break cel94k /k94db = nu. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav' /by = cel94k. execute. variable labels k94db 'cel94k kategória esetszáma 94-ben'. sort cases by cel93k. temporary. select if (sysmis(cel93k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav' /break cel93k /k93db = nu. sort cases by cel94k. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav' /rename (cel93k = cel94k) /by = cel94k. execute. variable labels k93db 'cel94k kategória esetszáma 93-ben'. numeric egyke94 (f10.8). variable labels egyke94 'Egyéni keresztmetszeti súly 1994'. compute egyke94 = k93db / k94db . frequencies variables egyke94 /stat all. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p94_EgyKe.sav' /compressed /drop cel94k k94db . ********. * 1995 *. ********. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p94_EgyKe.sav'. execute. numeric cel94k (f4.0). numeric cel95k (f4.0). variable labels cel94k 'Dim.cellák keresztm.sulyhoz 94-ban' /cel95k 'Dim.cellák keresztm.sulyhoz 95-ben' if (rsel94 = 1 and l4nem0 <> 1 and l4nem0 <> 8 or sysmis(l4nem0)) cel94k = e3aneme * 1000 + korcs94 * 100 + iskola94 * 10 + teltip94 . if (rsel95 = 1) cel95k = e4aneme * 1000 + korcs95 * 100 + iskola95 * 10 + teltip95 . sort cases by cel95k. temporary. select if (sysmis(cel95k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav' /break cel95k /k95db = nu. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav' /by = cel95k. execute. variable labels k95db 'cel95k kategória esetszáma 95-ben'. sort cases by cel94k. temporary. select if (sysmis(cel94k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav' /break cel94k /k94db = nu. sort cases by cel95k. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav' /rename (cel94k = cel95k) /by = cel95k. execute. variable labels k94db 'cel95k kategória esetszáma 94-ben'. numeric egyke95 (f10.8). variable labels egyke95 'Egyéni keresztmetszeti súly 1995'. compute egyke95 = k94db / k95db . frequencies variables egyke95 /stat all. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p95_EgyKe.sav' /compressed /drop cel95k k95db . ********. * 1996 *. ********. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p95_EgyKe.sav'. execute. numeric cel95k (f4.0). numeric cel96k (f4.0). variable labels cel95k 'Dim.cellák keresztm.sulyhoz 95-ban' /cel96k 'Dim.cellák keresztm.sulyhoz 96-ben' if (rsel95 = 1 and l5nem0 <> 1 and l5nem0 <> 8 or sysmis(l5nem0)) cel95k = e4aneme * 1000 + korcs95 * 100 + iskola95 * 10 + teltip95 . if (rsel96 = 1) cel96k = e5aneme * 1000 + korcs96 * 100 + iskola96 * 10 + teltip96 . sort cases by cel96k. temporary. select if (sysmis(cel96k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav' /break cel96k /k96db = nu. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav' /by = cel96k. execute. variable labels k96db 'cel96k kategória esetszáma 96-ben'. sort cases by cel95k. temporary. select if (sysmis(cel95k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav' /break cel95k /k95db = nu. sort cases by cel96k. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav' /rename (cel95k = cel96k) /by = cel96k. execute. variable labels k95db 'cel96k kategória esetszáma 95-ben'. numeric egyke96 (f10.8). variable labels egyke96 'Egyéni keresztmetszeti súly 1996'. compute egyke96 = k95db / k96db . frequencies variables egyke96 /stat all. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p96_EgyKe.sav' /compressed /drop cel96k k96db . ********. * 1997 *. ********. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p96_EgyKe.sav'. execute. numeric cel96k (f4.0). numeric cel97k (f4.0). variable labels cel96k 'Dim.cellák keresztm.sulyhoz 96-ban' /cel97k 'Dim.cellák keresztm.sulyhoz 97-ben' if (rsel96 = 1 and l6nem0 <> 1 and l6nem0 <> 8 or sysmis(l6nem0)) cel96k = e5aneme * 1000 + korcs96 * 100 + iskola96 * 10 + teltip96 . if (rsel97 = 1) cel97k = e6aneme * 1000 + korcs97 * 100 + iskola97 * 10 + teltip97 . sort cases by cel97k. temporary. select if (sysmis(cel97k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k97db.sav' /break cel97k /k97db = nu. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k97db.sav' /by = cel97k. execute. variable labels k97db 'cel97k kategória esetszáma 97-ben'. sort cases by cel96k. temporary. select if (sysmis(cel96k) = 0). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav' /break cel96k /k96db = nu. sort cases by cel97k. match files file = * /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav' /rename (cel96k = cel97k) /by = cel97k. execute. variable labels k96db 'cel97k kategória esetszáma 96-ben'. numeric egyke97 (f10.8). variable labels egyke97 'Egyéni keresztmetszeti súly 1997'. compute egyke97 = k96db / k97db . frequencies variables egyke97 /stat all. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p97_EgyKe.sav' /compressed /drop cel97k k97db . ***** Háztartás és Gyerek keresztmetszeti súly *****. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p97_EgyKe.sav'. execute. sort cases by hazon93. temporary. select if (rsel93 = 1). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke93.sav' /break hazon93 /hazke93 = mean(egyke93). match files file * /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke93.sav' /by hazon93. format hazke93 (f10.8). numeric gyeke93 (f10.8). variable labels hazke93 'Háztartás keresztmetszeti súly 93' /gyeke93 'Gyermek keresztmetszeti súly 93' . if (rsel93 = 2) gyeke93 = hazke93. execute. * 1994. sort cases by hazon94. temporary. select if (rsel94 = 1). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke94.sav' /break hazon94 /hazke94 = mean(egyke94). match files file * /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke94.sav' /by hazon94. format hazke94 (f10.8). numeric gyeke94 (f10.8). variable labels hazke94 'Háztartás keresztmetszeti súly 94' /gyeke94 'Gyermek keresztmetszeti súly 94' . if (rsel94 = 2) gyeke94 = hazke94. execute. * 1995. sort cases by hazon95. temporary. select if (rsel95 = 1). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke95.sav' /break hazon95 /hazke95 = mean(egyke95). match files file * /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke95.sav' /by hazon95. format hazke95 (f10.8). numeric gyeke95 (f10.8). variable labels hazke95 'Háztartás keresztmetszeti súly 95' /gyeke95 'Gyermek keresztmetszeti súly 95' . if (rsel95 = 2) gyeke95 = hazke95. execute. * 1996. sort cases by hazon96. temporary. select if (rsel96 = 1). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke96.sav' /break hazon96 /hazke96 = mean(egyke96). match files file * /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke96.sav' /by hazon96. format hazke96 (f10.8). numeric gyeke96 (f10.8). variable labels hazke96 'Háztartás keresztmetszeti súly 96' /gyeke96 'Gyermek keresztmetszeti súly 96' . if (rsel96 = 2) gyeke96 = hazke96. execute. * 1997. sort cases by hazon97. temporary. select if (rsel97 = 1). aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke97.sav' /break hazon97 /hazke97 = mean(egyke97). match files file * /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke97.sav' /by hazon97. var lab hazke97 'Háztartás keresztmetszeti súly 97'. format hazke97 (f10.8). format hazke97 (f10.8). numeric gyeke97 (f10.8). variable labels hazke97 'Háztartás keresztmetszeti súly 97' /gyeke97 'Gyermek keresztmetszeti súly 97' . if (rsel97 = 2) gyeke97 = hazke97. sort cases by case. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\P_EgyHazGyeKe.sav' /compressed. *********************************************. ***** Keresztmetszeti Súlyszorzatok *****. *********************************************. get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\P_EgyHazGyeKe.sav'. execute. *****A sulyok szorzását elvégző program. numeric egyke93s (f10.8). numeric egyke94s (f10.8). numeric egyke95s (f10.8). numeric egyke96s (f10.8). numeric egyke97s (f10.8). numeric egylo93s (f10.8). numeric egylo94s (f10.8). numeric egylo95s (f10.8). numeric egylo96s (f10.8). numeric egylo97s (f10.8). numeric hazke93s (f10.8). numeric hazke94s (f10.8). numeric hazke95s (f10.8). numeric hazke96s (f10.8). numeric hazke97s (f10.8). numeric hazlo93s (f10.8). numeric hazlo94s (f10.8). numeric hazlo95s (f10.8). numeric hazlo96s (f10.8). numeric hazlo97s (f10.8). numeric gyeke93s (f10.8). numeric gyeke94s (f10.8). numeric gyeke95s (f10.8). numeric gyeke96s (f10.8). numeric gyeke97s (f10.8). numeric gyelo93s (f10.8). numeric gyelo94s (f10.8). numeric gyelo95s (f10.8). numeric gyelo96s (f10.8). numeric gyelo97s (f10.8). execute. * 1993. compute egyke93s = suly92 * egyke93. if (e2egyen>20 and h2attip ne 5) egyke93s = egyke93. if (e2egyen>20 and h2attip = 5) egyke93s = 0.4028985 * egyke93. if (rsel93 = 1 and sysmis(egyke93s) and e2attip <> 5) egyke93s = egyke93. if (rsel93 = 1 and sysmis(egyke93s) and e2attip = 5) egyke93s = 0.4028985 * egyke93. if (e1attip = 5 and e2attip <> 5) egyke93s = egyke93s * 2.4820147. * 1994. compute egyke94s = egyke93s * egyke94. if (e3egyen>30 and h3attip ne 5) egyke94s = egyke94. if (e3egyen>30 and h3attip = 5) egyke94s = 0.4028985 * egyke94. if (rsel94 = 1 and sysmis(egyke94s) and e3attip <> 5) egyke94s = egyke94. if (rsel94 = 1 and sysmis(egyke94s) and e3attip = 5) egyke94s = 0.4028985 * egyke94. if (e2attip = 5 and e3attip <> 5) egyke94s = egyke94s * 2.4820147. * 1995. compute egyke95s = egyke94s * egyke95. if (e4egyen>40 and h4attip ne 5) egyke95s = egyke95. if (e4egyen>40 and h4attip = 5) egyke95s = 0.4028985 * egyke95. if (rsel95 = 1 and sysmis(egyke95s) and e4attip <> 5) egyke95s = egyke95. if (rsel95 = 1 and sysmis(egyke95s) and e4attip = 5) egyke95s = 0.4028985 * egyke95. if (e3attip = 5 and e4attip <> 5) egyke95s = egyke95s * 2.4820147. * 1996. compute egyke96s = egyke95s * egyke96. if (e5egyen>50 and h5attip ne 5) egyke96s = egyke96. if (e5egyen>50 and h5attip = 5) egyke96s = 0.4028985 * egyke96. if (rsel96 = 1 and sysmis(egyke96s) and e5attip <> 5) egyke96s = egyke96. if (rsel96 = 1 and sysmis(egyke96s) and e5attip = 5) egyke96s = 0.4028985 * egyke96. if (e4attip = 5 and e5attip <> 5) egyke96s = egyke96s * 2.4820147. * 1997. compute egyke97s = egyke96s * egyke97. if (e6egyen>60 and h6attip ne 5) egyke97s = egyke97. if (e6egyen>60 and h6attip = 5) egyke97s = 0.4028985 * egyke97. if (rsel97 = 1 and sysmis(egyke97s) and e6attip <> 5) egyke97s = egyke97. if (rsel97 = 1 and sysmis(egyke97s) and e6attip = 5) egyke97s = 0.4028985 * egyke97. if (e5attip = 5 and e6attip <> 5) egyke97s = egyke97s * 2.4820147. fre egyke93s egyke94s egyke95s egyke96s egyke97s /format notable / stat all. * Háztartás keresztmetszeti súly. compute hazke93s = suly92 * hazke93. if (e2egyen>20 and h2attip ne 5) hazke93s = hazke93. if (e2egyen>20 and h2attip = 5) hazke93s = 0.4028985 * hazke93. if (rsel93 = 1 and sysmis(hazke93s) and e2attip <> 5) hazke93s = hazke93. if (rsel93 = 1 and sysmis(hazke93s) and e2attip = 5) hazke93s = 0.4028985 * hazke93. if (e1attip = 5 and e2attip <> 5) hazke93s = hazke93s * 2.4820147. compute hazke94s = hazke93s * hazke94. if (e3egyen>30 and h3attip ne 5) hazke94s = hazke94. if (e3egyen>30 and h3attip = 5) hazke94s = 0.4028985 * hazke94. if (rsel94 = 1 and sysmis(hazke94s) and e3attip <> 5) hazke94s = hazke94. if (rsel94 = 1 and sysmis(hazke94s) and e3attip = 5) hazke94s = 0.4028985 * hazke94. if (e2attip = 5 and e3attip <> 5) hazke94s = hazke94s * 2.4820147. compute hazke95s = hazke94s * hazke95. if (e4egyen>40 and h4attip ne 5) hazke95s = hazke95. if (e4egyen>40 and h4attip = 5) hazke95s = 0.4028985 * hazke95. if (rsel95 = 1 and sysmis(hazke95s) and e4attip <> 5) hazke95s = hazke95. if (rsel95 = 1 and sysmis(hazke95s) and e4attip = 5) hazke95s = 0.4028985 * hazke95. if (e3attip = 5 and e4attip <> 5) hazke95s = hazke95s * 2.4820147. compute hazke96s = hazke95s * hazke96. if (e5egyen>50 and h5attip ne 5) hazke96s = hazke96. if (e5egyen>50 and h5attip = 5) hazke96s = 0.4028985 * hazke96. if (rsel96 = 1 and sysmis(hazke96s) and e5attip <> 5) hazke96s = hazke96. if (rsel96 = 1 and sysmis(hazke96s) and e5attip = 5) hazke96s = 0.4028985 * hazke96. if (e4attip = 5 and e5attip <> 5) hazke96s = hazke96s * 2.4820147. compute hazke97s = hazke96s * hazke97. if (e6egyen>60 and h6attip ne 5) hazke97s = hazke97. if (e6egyen>60 and h6attip = 5) hazke97s = 0.4028985 * hazke97. if (rsel97 = 1 and sysmis(hazke97s) and e6attip <> 5) hazke97s = hazke97. if (rsel97 = 1 and sysmis(hazke97s) and e6attip = 5) hazke97s = 0.4028985 * hazke97. if (e5attip = 5 and e6attip <> 5) hazke97s = hazke97s * 2.4820147. fre hazke93s hazke94s hazke95s hazke96s hazke97s /format notable / stat all. fre hazke95s. * Gerek keresztmetszeti súly. compute gyeke93s=hazke93s. compute gyeke94s=hazke94s. compute gyeke95s=hazke95s. compute gyeke96s=hazke96s. compute gyeke97s=hazke97s. fre gyeke93s gyeke94s gyeke95s gyeke96s gyeke97s /format notable / stat all. sort cases by case. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\P_EgyHazGyeKe_S.sav' /compressed. *** 'Csak a CASE és a súly változók !'. save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\KerSuly.sav' /compressed /keep case egyke93s egyke94s egyke95s egyke96s egyke97s hazke93s hazke94s hazke95s hazke96s hazke97s gyeke93s gyeke94s gyeke95s gyeke96s gyeke97s .