***az 1998-as felvetel elemzese***. ***A TARKI-nal a kodja: 'CEG98 kutatas'***. ***nincs ott archivalva a megrendelo (Kopint Konjunktura Kutatasi Alapitvany) kivansagara*** ***cipe98b felvetel (CEG98)***. GET FILE='C:\WORK98\CIPE\CIPE2\DATA\ALAPSOK.SAV'. rename var (kshkod=a1). sort cases by sorsz. save outFILE='C:\WORK98\CIPE\CIPE2\DATA\c98alap.SAV' /keep sector gforma ltsm_ksh nbv6_ksh megye sorsz /comp. GET FILE='C:\WORK98\CIPE\CIPE2\DATA\ALAPSOK.SAV'. GET FILE='C:\WORK98\CIPE\CIPE2\DATA\C98B_1.SAV'. rename var (vsorsz=sorsz). sort cases by sorsz. comp lminta=1. save outFILE='C:\WORK98\CIPE\CIPE2\DATA\c98b_1.SAV' /comp. match files file='C:\WORK98\CIPE\CIPE2\DATA\c98b_1.SAV' /file='C:\WORK98\CIPE\CIPE2\DATA\c98alap.sav' /by sorsz. fre var ltsm_ksh. save outFILE='C:\WORK98\CIPE\CIPE2\DATA\c98b_2.SAV' /comp. fre var sector. comp s96=sector. recode s96 (1500 thru 1699=1) (1700 thru 1999=2) (2000 thru 2299=3) (2300 thru 2599=4) (2600 thru 2699=5) (2700 thru 2899=6) (2900 thru 3599=7) (3600 thru 3799=8) (4500 thru 4599=9) (5100 thru 5299=10). value label s96 1 'Food, beverage,tobacco' 2 'Textile, clothes,leather,fur' 3 'Wood, paper, printing' 4 'Chemical products' 5 'Non-metallic mineral prod.' 6 'Metals, fabricated metal prod.' 7 'Manufacture of Machinery' 8 'Other ind., recycling' 9 'Construction' 10 'Trade'. fre var s96. fre var ltsm_ksh. filter by lminta. fre var s96 ltsm_ksh. filter off. comp s962=s96. recode s962 (1 thru 8=1) (9=2) (10=3). fre var s962. fre var s962 ltsm_ksh. comp svar=99. if (s962=1 & ltsm_ksh=4) svar=1. if (s962=2 & ltsm_ksh=4) svar=2. if (s962=3 & ltsm_ksh=4) svar=3. if (s962=1 & ltsm_ksh=5) svar=4. if (s962=2 & ltsm_ksh=5) svar=5. if (s962=3 & ltsm_ksh=5) svar=6. if (s962=1 & ltsm_ksh=6) svar=7. if (s962=2 & ltsm_ksh=6) svar=5. if (s962=3 & ltsm_ksh=6) svar=8. missing value svar (99). fre var svar. fre var ltsm_ksh. comp suly1=1. if (svar=1) suly1=(989/3489)/(79/299). if (svar=2) suly1=(288/3489)/(12/299). if (svar=3) suly1=(350/3489)/(37/299). if (svar=4) suly1=(730/3489)/(82/299). if (svar=5) suly1=(148/3489)/(11/299). if (svar=6) suly1=(254/3489)/(24/299). if (svar=7) suly1=(592/3489)/(47/299). if (svar=8) suly1=(138/3489)/( 7/299). fre var suly1/stat all. weight by suly1. filter by lminta. weight off. ***szamitasok a ceg98 alapjan. fre var s962. missing value v33 v50 (999)/ v25 v32 v44 v47a v47b v47c v48 v54 v65 v66 v68 v69a v69b v69c v69d v69e v72a v72b v72c v72d (9). fre var v04a v04b v04c v04d v04e v04f v04g v04h v04i. comp koztul=0. comp klfd=0. comp bceg=0. comp mmsz=0. comp vgys=1. if (v04a ge 3 or v04b ge 3) koztul=1. if (v04f ge 3 or v04g ge 3 or v04h ge 3) klfd=1. if (v04f eq 2 and v04g eq 2 and v04h eq 2) klfd=1. if (v04f eq 2 and v04g eq 2) klfd=1. if (v04g eq 2 and v04h eq 2) klfd=1. if (v04f eq 2 and v04h eq 2) klfd=1. if (v04e ge 3) bceg=1. if (v04c ge 3 or v04d ge 3) mmsz=1. if (v04c eq 2 and v04d eq 2) mmsz=1. if (koztul eq 1 or bceg eq 1 or klfd eq 1 or mmsz eq 1) vgys=0. fre var koztul v04j bceg klfd mmsz vgys. crosstabs tables koztul by bceg klfd mmsz vgys. crosstabs tables bceg by klfd mmsz vgys. crosstabs tables klfd by mmsz vgys. crosstabs tables mmsz by vgys. if (klfd eq 1 and bceg eq 1) vgys=1. if (klfd eq 1 and vgys eq 1) klfd=0. if (bceg eq 1 and vgys eq 1) bceg=0. if (mmsz eq 1 and bceg eq 1) vgys=1. if (mmsz eq 1 and vgys eq 1) mmsz=0. if (bceg eq 1 and vgys eq 1) bceg=0. crosstabs tables koztul by bceg klfd mmsz vgys. crosstabs tables bceg by klfd mmsz vgys. crosstabs tables klfd by mmsz vgys. crosstabs tables mmsz by vgys. comp tultip=0. if (klfd eq 1) tultip=1. if (bceg eq 1) tultip=2. if (mmsz eq 1) tultip=3. if (koztul eq 1) tultip=4. if (vgys eq 1) tultip=5. value label tultip 1 'klfd' 2 'bceg' 3 'mmsz' 4 'koztul' 5 'vgys'. fre var tultip. recode v1701 (8=9). recode v1702 (8=9). recode v1703 (8=9). recode v1701 (0=9). recode v1702 (0=9). recode v1703 (0=9). missing value v1701 v1702 v1703 (9). comp LTSMKT6=v1701. recode LTSMKT6 (1 thru 100=1) (101 thru 200=2) (201 thru 300=3) (301 thru HI=4). value label LTSMKT6 1 '-100' 2 '101-200' 3 '201-300' 4 '301-'. comp LTSMKT7=v1702. recode LTSMKT7 (1 thru 100=1) (101 thru 200=2) (201 thru 300=3) (301 thru HI=4). value label LTSMKT7 1 '-100' 2 '101-200' 3 '201-300' 4 '301-'. comp LTSM_P=v1702. recode LTSM_P (1 thru 100=1) (101 thru 250=2) (251 thru hi=3). value label LTSM_P 1 '-100' 2 '101-250' 3 '251-'. fre var ltsm_p. comp LTSMKT8=v1703. recode LTSMKT8 (1 thru 100=1) (101 thru 200=2) (201 thru 300=3) (301 thru HI=4). value label LTSMKT8 1 '-100' 2 '101-200' 3 '201-300' 4 '301-'. ***. fre var tultip. fre var LTSMKT6 ltsmkt7 ltsmkt8. fre var ltsm_ksh. ***. fre var v16. crosstabs tables v16 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. **. fre var v1701 v1702 v1703/format notable/stat all. comp minwr=(v18/v1702)*100. fre var minwr/format notable/stat all. means tables MINWR by s962 tultip ltsmkt7/stat anova. ***. fre var v25 v28 v29. fre var v30/format notable/ntiles (10)/stat all. crosstabs tables v25 v28 v29 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. ***. fre var v32 v33/STAT ALL. crosstabs tables v32 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. means tables v33 by s962 tultip ltsmkt7/stat anova. ***. fre var v44. crosstabs tables v44 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. ***. fre var v47a v47b v47c v48. crosstabs tables v47a v47b v47c v48 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. ***. comp taxall=0. if (v40a01 eq 1) taxall= taxall + 1. if (v40b01 eq 1) taxall= taxall + 1. if (v40c01 eq 1) taxall= taxall + 1. if (v40d01 eq 1) taxall= taxall + 1. if (v40e01 eq 1) taxall= taxall + 1. if (v40f01 eq 1) taxall= taxall + 1. recode taxall (0=0) (1=1) (2=2) (3,4,5=3). FRE VAR TAXALL/STAT ALL. means tables taxall by s962 tultip ltsmkt7/stat anova. ***. fre var v50/format notable /stat all. means tables v50 by s962 tultip ltsmkt7/stat anova. ***. fre var v54 v56 v68. crosstabs tables v54 v56 v68 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. ***. fre var v65 v66. crosstabs tables v65 v66 by s962 tultip ltsmkt7 /cells count column row asresid /stat phi gamma. ***. fre var v69a v69b v69c v69d v69e/stat all. ***. fre var v72a v72b v72c v72d. FRE VAR ho nap. CROSSTABS TABLES NAP BY HO. ***. fre var v35. ***. ***logitok **az adótartozás, (ado es tb) **kedvezmények **minimálbéren való foglalkoztatás **partnerek áfa nélküli értékesítése **szerződésszegés **versenytárs szerepe a fekete gazdaságban*** **juttara** filter by lminta. weight by suly1. ***missing-ek, javitas***. recode v1702 (2=9)/ v1703 (1=9)/ v1501 (1=9)/ v1502 (-77,0,1=9)/ v1503 (0,1=9). missing value v1702 v1703 v1501 v1502 v1503 (9). comp dl76=v1702/v1701. comp dl87=v1703/v1702. comp dq76=v1502/v1501. comp dq87=v1503/v1502. fre var v33 v50 minwr/stat all. comp minlf =9. if (minwr eq 0) minlf=0. if (minwr gt 0) minlf=1. Missing value minlf (9). variable labels minlf 'minimalberen valo fogl. elof.'. comp pkesik=9. if (v33 eq 0) pkesik=0. if (v33 gt 0 and v33 le 10) pkesik=1. if (v33 gt 10 and v33 le 30) pkesik=2. if (v33 gt 30) pkesik=3. comp juttar=9. if (v50 le 5) juttar=0. if (v50 gt 5) juttar=1. missing value pkesik juttar (9). comp sszeg=v32. comp adotart=9. fre var v56 v68. if (v56 eq 0 and v68 eq 0) adotart=0. if (v56 eq 1 or v68 eq 1) adotart=1. missing value adotart (9). fre var v30/stat all. comp expr=0. if (v30 gt 0) expr=v30. fre var expr. comp expro=0. if (expr gt 0 and expr le 20) expro=1. if (expr gt 20 and expr le 50) expro=2. if (expr gt 50) expro=3. fre var expro. fre var v47a. comp afapar=9. if (v47a eq 1) afapar=0. if (v47a gt 1) afapar=1. missing value afapar (9). fre var afapar. fre var pkesik juttar minlf expro. fre var pkesik. comp szszeg=v32. fre var v13 v14. ****modellek**. 2. modell szszeg***. logistic regression szszeg with s962 tultip ltsmkt7 dl76o expro /categorical s962 tultip ltsmkt7 dl76o expro /method enter. fre var v32. ***az eredmény nem kielégítő es ertelmezhetetlen***. ***3. modell.*** ***adotartozas***. ***. comp dl76o=9. if (dl76 lt 1) dl76o=1. if (dl76 eq 1) dl76o=2. if (dl76 gt 1) dl76o=3. missing value dl76o (9). fre var dl76o. logistic regression adotart with s962 tultip ltsmkt7 dl76o expro /categorical s962 tultip ltsmkt7 dl76o expro /method enter. ***. ***4. modell***. ***afapar***. fre var afapar. logistic regression afapar with s962 tultip ltsmkt7 dl76o expro /categorical s962 tultip ltsmkt7 dl76o expro /method enter. ***. ***5. modell***. ***juttar***. logistic regression juttar with s962 tultip ltsmkt7 dl76o expro /categorical s962 tultip ltsmkt7 dl76o expro /method enter. ***. ***6. modell**. ***minfl***. logistic regression minlf with s962 tultip ltsmkt7 dl76o expro /categorical s962 tultip ltsmkt7 dl76o expro /method enter. ***. ***7. modell, uzleti kalkulacio***. ***. logistic regression v66 with s962 tultip ltsmkt7 dl76o expro /categorical s962 tultip ltsmkt7 dl76o expro /method enter. fre var v66. fre var v47a. filter by lminta. fre var ltsmkt7 tultip expro minlf juttar taxall pkesik. ***ordered logitokhoz file elokeszites***. ***1998***. ***taxall, pkesik***. *** comp afaparo=v47a. comp s1=0. comp s2=0. comp l1=0. comp l2=0. comp l3=0. comp lfal=0. comp lnoc=0. comp lris=0. comp exp1=0. comp exp2=0. comp exp3=0. if (s962 eq 1) s1=1. if (s962 eq 2) s2=1. if (missing(s962)) s1=9. if (missing(s962)) s2=9. if (ltsmkt7 eq 1) l1=1. if (ltsmkt7 eq 2) l2=1. if (ltsmkt7 eq 3) l3=1. if (missing(ltsmkt7)) l1=9. if (missing(ltsmkt7)) l2=9. if (missing(ltsmkt7)) l3=9. if (dl76o eq 1) lfal=1. if (dl76o eq 2) lnoc=1. if (missing(dl76o)) lfal=9. if (missing(dl76o)) lnoc=9. if (expro eq 0) exp1=1. if (expro eq 1) exp2=1. if (expro eq 2) exp3=1. if (missing(expro)) exp1=9. if (missing(expro)) exp2=9. if (missing(expro)) exp3=9. missing value s1 s2 l1 l2 l3 lfal lnoc exp1 exp2 exp3 (9). sel if (lminta eq 1). export outFILE='C:\work98\cipe\cipe2\data\c98_3.por' /keep taxall pkesik afaparo s1 s2 l1 l2 l3 klfd bceg mmsz koztul lfal lnoc exp1 exp2 exp3 lminta suly1. ****. comp afaparo=c53a. comp s1=0. comp s2=0. comp l1=0. comp l2=0. comp l3=0. comp lfalm=0. comp lfall=0. comp lnoc=0. comp lgrl=0. comp exp1=0. comp exp2=0. comp exp3=0. if (s962 eq 1) s1=1. if (s962 eq 2) s2=1. if (missing(s962)) s1=9. if (missing(s962)) s2=9. if (ltsmkt6 eq 1) l1=1. if (ltsmkt6 eq 2) l2=1. if (ltsmkt6 eq 3) l3=1. if (missing(ltsmkt6)) l1=9. if (missing(ltsmkt6)) l2=9. if (missing(ltsmkt6)) l3=9. if (dl65o eq 1) lfalm=1. if (dl65o eq 2) lfall=1. if (dl65o eq 3) lnoc=1. if (dl65o eq 4) lgrl=1. if (missing(dl65o)) lfalm=9. if (missing(dl65o)) lfall=9. if (missing(dl65o)) noc=9. if (missing(dl65o)) lgrl=9. if (expro eq 0) exp1=1. if (expro eq 1) exp2=1. if (expro eq 2) exp3=1. if (missing(expro)) exp1=9. if (missing(expro)) exp2=9. if (missing(expro)) exp3=9. missing value s1 s2 l1 l2 l3 lfalm lfall lnoc lgrl exp1 exp2 exp3 (9). sel if (lminta eq 1). export outFILE='C:\work98\cipe\cipe2\data\c96_x.por' /keep taxall pkesik afaparo s1 s2 l1 l2 l3 klfd bceg mmsz koztul lfalm lfall lnoc lgrl exp1 exp2 exp3 lminta. ***. fre var v1701 v1702 v1703 v1501 v1502 v1503. ***adocsalok becslese*** **egy szarvas hiba van az 1994-es becslesben*** **nem 44.3 es 45.7 % aranyban vannak igaz es hamis valaszok, hanem **mas*** GET FILE='C:\WORK98\CIPE\CIPE2\DATA\TDTBS.SAV'. filter by filtre. weight by slym2. fre var q63. weight by slym. fre var q63. ***. GET FILE='C:\WORK98\TAX96\DATA\TAX96.SAV'. filter by lminta. fre var c77 c81. 2. modell szszeg***. comp szszeg=c37a. fre var expr96. comp expro=0. if (expr96 eq 0) expro=0. if (expr96 > 0 & expr96 < 21) expro=1. if (expr96 > 20 & expr96 < 51) expro=2. if (expr96 > 50)expro=3. fre var expro. fre var sector3. comp s962=sector3. recode s962 (1=1) (2=2) (3,4=3). fre var s962. comp dl65o=ltsm65dd. SAVE OUTFILE='c:\work98\tax96\data\tax96_1.sav'/COMPRESSED. Logistic regression szszeg with s962 tultip ltsmkt6 dl65o expro /categorical s962 tultip ltsmkt6 dl65o expro /method enter. GET FILE='c:\work98\tax96\data\tax96_1.sav'. ***1. modell*** ***taxall**. comp taxall=0. if (c43a1 eq 1) taxall= taxall + 1. if (c43b1 eq 1) taxall= taxall + 1. if (c43c1 eq 1) taxall= taxall + 1. if (c43d1 eq 1) taxall= taxall + 1. if (c43e1 eq 1) taxall= taxall + 1. if (c43f1 eq 1) taxall= taxall + 1. recode taxall (0=0)(1=1) (2=2) (3,4,5,6=3). FRE VAR TAXALL/STAT ALL. SAVE OUTFILE='c:\work\cipe\cipe2\data\cipe96_x.sav'/COMPRESSED. ****3. MODELL***. Logistic regression ADOTART with s962 tultip ltsmkt6 dl65o expro /categorical s962 tultip ltsmkt6 dl65o expro /method enter. ***4. MODELL***. ***AFAPAR***. FRE VAR AFAPAR. fre var c53 Logistic regression AFAPAR with s962 tultip ltsmkt6 dl65o expro /categorical s962 tultip ltsmkt6 dl65o expro /method enter. ***5. MODELL***. ***JUTTAR***. FRE VAR C38. comp pkesik=9. if (C38 eq 3) pkesik=0. if (C38 EQ 2) pkesik=1. if (C38 EQ 1) pkesik=2. FRE VAR C56. comp juttar=9. if (C56 le 5) juttar=0. if (C56 gt 5) juttar=1. missing value juttar (9). FRE VAR JUTTAR. Logistic regression JUTTAR with s962 tultip ltsmkt6 dl65o expro /categorical s962 tultip ltsmkt6 dl65o expro /method enter. ***6. MODELL***. ***MINFL***. FRE VAR C23. COMP MINFL=9. IF (C23 EQ 0) MINFL=0. IF (C23 GT 0) MINFL=1. MISSING VALUE MINFL (9). FRE VAR MINFL. Logistic regression MINFL with s962 tultip ltsmkt6 dl65o expro /categorical s962 tultip ltsmkt6 dl65o expro /method enter. ***7. MODELL***. FRE VAR C72. fre var tultip ltsmkt6. Logistic regression C72 with s962 tultip ltsmkt6 dl65o expro /categorical s962 tultip ltsmkt6 dl65o expro /method enter. missing value pkesik (9). fre var ltsmkt6 tultip juttar minfl pkesik. save outFILE='C:\work98\cipe\cipe2\data\c96.SAV' /comp. ***vege. filter off. weight off. ***codebook-hoz a file levalogatasa*** weight off. sel if(lminta eq 1). save outFILE='C:\WORK98\CIPE\CIPE2\DATA\c98b_3.sys' /drop vfpcim telep kerdezte ho nap ora1 perc1 ora2 perc2 instruk ihhiba1 krhiba1 poszt ihhiba2 krhiba2 kotel allbev ado1 ado2 x /comp. ***merlegek alapjan az effektiv adokulcsok szamitasa. GET FILE='C:\work98\cipe\cipe2\data\M96_SMPL.SAV'. comp good96=1. if (mt96_71 le 0) good96=0. fre var good96. sel if (good96 eq 1). comp sect96=a3. comp vadd96=mt96_71 + mt96_75 - mt96_76 - mt96_77 - mt96_78 - mt96_79. comp staf96=ta96_174. comp cflo96=vadd96 - mt96_84. comp tass96= mt96_8. comp ntur96=mt96_71. comp expo96=mt96_70. comp icap96=ta96_9. comp publ96=ta96_10 + ta96_11. comp hind96=ta96_12 + ta96_14. comp hcom96=ta96_13. comp fore96=ta96_15. comp othe96=ta96_16 + ta96_17. comp lf96=9. if (a8 ge 711 and a8 le 729) lf96=1. if (a8 eq 113) lf96=2. if (a8 eq 114) lf96=3. if (a8 ge 115 and a8 le 119) lf96=5. if (a8 eq 111 or a8 eq 112) lf96=5. if (a8 ge 121 and a8 le 129) lf96=4. if (a8 ge 131 and a8 le 139) lf96=5. if (a8 ge 211 and a8 le 212) lf96=5. if (a8 ge 521 and a8 le 571) lf96=5. if (a8 eq 231) lf96=5. if (a8 ge 731) lf96=5. value label lf96 1 'state enterprise' 2 'ltd' 3 'joint comp.' 4 'co-operative' 5 'other'. comp s96=sect96. recode s96 (15,16=1)(17,18,19=2) (20,21,22=3) (23,24,25=4) (26=5) (27,28=6) (29 thru 35=7) (36,37=8) (45=9) (51,52=10) (70,71,72,74=11). value label s96 1 'Food, beverage,tobacco' 2 'Textile, clothes,leather,fur' 3 'Wood, paper, printing' 4 'Chemical products' 5 'Non-metallic mineral prod.' 6 'Metals, fabricated metal prod.' 7 'Manufacture of Machinery' 8 'Other ind., recycling' 9 'Construction' 10 'Trade' 11 'Services'. comp l96=staf96. recode l96 (21 thru 50=1) (51 thru 100=2) (101 thru 300=3) (301 thru hi =4). value label l96 1 '21-50' 2 '51-100' 3 '101-300' 4 '301-'. comp r96=a10. recode r96 (1,13=1) (8,18,20=2) (11,19,7=3) (14,2,17=4) (3,6,4=5) (16,9,15=6) (12,10,5=7). recode r96 (41,42,43,44=1). missing value r96 (51). value label r96 1 'Central' 2 'West Transdanubia' 3 'North Transdanubia' 4 'South Transdanubia' 5 'South-East' 6 'Middle-East' 7 'North-East'. fre var s96. comp s961=0. comp s962=0. comp s963=0. comp s964=0. comp s965=0. comp s966=0. comp s967=0. comp s968=0. comp s969=0. comp s9610=0. if (s96 eq 1) s961=1. if (s96 eq 2) s962=1. if (s96 eq 3) s963=1. if (s96 eq 4) s964=1. if (s96 eq 5) s965=1. if (s96 eq 6) s966=1. if (s96 eq 7) s967=1. if (s96 eq 8) s968=1. if (s96 eq 9) s969=1. if (s96 eq 10) s9610=1. fre var l96. comp l961=0. comp l962=0. comp l963=0. if (l96 eq 1) l961=1. if (l96 eq 2) l962=1. if (l96 eq 3) l963=1. fre var r96. comp rm96=0. if (missing(r96)) rm96=1. comp r961=0. comp r962=0. comp r963=0. comp r964=0. comp r965=0. comp r966=0. if (r96 eq 1) r961=1. if (r96 eq 2) r962=1. if (r96 eq 3) r963=1. if (r96 eq 4) r964=1. if (r96 eq 5) r965=1. if (r96 eq 6) r966=1. if (rm96 eq 1) r961=9. if (rm96 eq 1) r962=9. if (rm96 eq 1) r963=9. if (rm96 eq 1) r964=9. if (rm96 eq 1) r965=9. if (rm96 eq 1) r966=9. missing value r961 r962 r963 r964 r965 r966 (9). comp recode lf96 (9=5). value label lf96 1 'state enterprise' 2 'ltd' 3 'joint-stock co.' 4 'coop.' 5 'other'. comp publ96r =publ96/icap96. comp hind96r =hind96/icap96. comp hcom96r =hcom96/icap96. comp fore96r =fore96/icap96. comp othe96r =othe96/icap96. comp publ96d =0. comp hind96d =0. comp hcom96d =0. comp fore96d =0. comp othe96d =0. comp mixt96d= 0. if (publ96r gt 0.50) publ96d =1. if (hind96r gt 0.50) hind96d =1. if (hcom96r gt 0.50) hcom96d =1. if (fore96r gt 0.50) fore96d =1. if (othe96r gt 0.50) othe96d =1. if (publ96d=0 & hind96d=0 & hcom96d=0 & fore96d=0 & othe96d=0) mixt96d=1. crosstabs tables publ96d by hind96d hcom96d fore96d othe96d mixt96d. crosstabs tables hind96d by fore96d hcom96d othe96d mixt96d. crosstabs tables fore96d by othe96d hcom96d mixt96d. crosstabs tables othe96d by mixt96d hcom96d. crosstabs tables mixt96d by hcom96d. if (missing(icap96)) publ96d=9. if (missing(icap96)) hind96d=9. if (missing(icap96)) hcom96d=9. if (missing(icap96)) fore96d=9. if (missing(icap96)) othe96d=9. if (missing(icap96)) mixt96d=9. missing value publ96d hind96d hcom96d fore96d othe96d mixt96d (9). comp owgr96=9. if (publ96d eq 1) owgr96=1. if (hind96d eq 1) owgr96=2. if (hcom96d eq 1) owgr96=3. if (fore96d eq 1) owgr96=4. if (othe96d eq 1) owgr96=5. if (mixt96d eq 1) owgr96=6. value labels owgr96 1 'Public' 2 'H. individual' 3 'D. company' 4 'Foreign' 5 'Other' 6 'Mixed'. missing value owgr96 (9). fre var owgr96. save outFILE='C:\work98\cipe\cipe2\data\c96_m.SAV' /comp. export outFILE='C:\work98\cipe\cipe2\data\c96_m.por'. ***számolás***. comp div96= mt96_106. comp pbt96= mt96_102. comp bat96= v48. comp tax96= mt96_103. comp pat96= mt96_104. comp efftxr1=tax96/pbt96. comp efftxr2=tax96/bat96. comp all96= v53. comp allr = all96/(all96+tax96). comp divr = div96/pat96. variable labels div96 'dividends and profit-sharing'/ pbt96 'profit before tax'/ bat96 'base of assessment'/ tax96 'company tax'/ pat96 'profit after tax'/ efftxr1 'effective tax rate=tax/pbt'/ efftxr2 'effective tax rate=tax/bat'/ all96 'allowances'/ allr 'rate of allowances=all/(all+tax)'/ divr 'rate of dividends=div/pat'. fre var s96 l96 r96. ***vege***