Examenopdracht

********DATABEHEER*********
***************************/



*Nodige variabelen nakijken en wegschrijven naar nieuw databestand.
*******************************************************************;


data ess.ESS4;
set "/folders/myfolders/ess4e04_2.sas7bdat" (keep = CNTRY JBSPV WKDCORGA IORGACT SCLMEET
SCLACT HAPPY DSCRGRP MARITALA);
if CNTRY = "DE";
run;



proc freq data = ess.ESS4;
tables CNTRY JBSPV WKDCORGA IORGACT SCLMEET SCLACT HAPPY DSCRGRP MARITALA;
run;

proc freq data = ess.ESS4;
tables CNTRY JBSPV WKDCORGA IORGACT SCLMEET SCLACT HAPPY DSCRGRP MARITALA;
format CNTRY JBSPV WKDCORGA IORGACT SCLMEET SCLACT HAPPY DSCRGRP MARITALA;
run;



data work.ess4;
set ess.ess4;
run;



*Nieuwe variabelen aanmaken.
****************************;


data ess4;
set ess4;

DSCRGRPRevDum = (DSCRGRP = 2);
if DSCRGRP < 0 then DSCRGRPRevDum = .;
label DSCRGRPRevDum = "Not member of a group discriminated against in this country - dummy";

run;



data ess4;
set ess4;

JBSPVDum = (JBSPV = 1);
if JBSPV < 0 then JBSPVDum = .;
label JBSPVDum = "Responsible for supervising other employees - dummy";

run;



data ess4;
set ess4;

RLTDum = (MARITALA = 1 OR MARITALA = 2);
if MARITALA < 0 then RLTDum = .;

label RLTDum = "In a relationship - dummy";

run;



proc freq data = ess4;
tables DSCRGRPRevDum JBSPVDum RLTDum;
run;

, ********** DEEL 1: MEETMODEL **********
***************************************



*Eerste schatting met ML.
*************************;


proc calis data = ESS4 kurtosis covariance modification;

lineqs
JBSPVDum = LX1F1 F1 + E1,
WKDCORGA = LX2F1 F1 + E2,
IORGACT = LX3F1 F1 + E3,
SCLMEET = LX4F2 F2 + E4,
SCLACT = LX5F2 F2 + E5,
HAPPY = LX6F3 F3 + E6,
DSCRGRPRevDum = LX7F3 F3 + E7;

std
F1 = 1,
F2 = 1,
F3 = 1,
RLTDum = VARY,
E1-E7 = VARE1-VARE7;

cov
F1 F2 = CF1F2,
F1 F3 = CF1F3,
F1 RLTDum = CF1Y,
F2 F3 = CF2F3,
F2 RLTDum = CF2Y,
F3 RLTDum = CF3Y;

var
JBSPVDum WKDCORGA IORGACT SCLMEET SCLACT HAPPY DSCRGRPRevDum RLTDum;

run;



*Tweede schatting met WLS.
**************************;


proc calis data = ESS4 method=wls kurtosis covariance modification;

lineqs
JBSPVDum = LX1F1 F1 + E1,
WKDCORGA = LX2F1 F1 + E2,
IORGACT = LX3F1 F1 + E3,
SCLMEET = LX4F2 F2 + E4,
SCLACT = LX5F2 F2 + E5,
HAPPY = LX6F3 F3 + E6,
DSCRGRPRevDum = LX7F3 F3 + E7;

std
F1 = 1,
F2 = 1,
F3 = 1,
RLTDum = VARY,
E1-E7 = VARE1-VARE7;

cov
F1 F2 = CF1F2,
F1 F3 = CF1F3,
F1 RLTDum = CF1Y,
F2 F3 = CF2F3,
F2 RLTDum = CF2Y,
F3 RLTDum = CF3Y;

var
JBSPVDum WKDCORGA IORGACT SCLMEET SCLACT HAPPY DSCRGRPRevDum RLTDum;

run;