Author: erin
Company: Microsoft

C:\Dropbox\DATA\practice of survey research.sav

* preparing variables for ananlysis.
Recode q132w1 q134w1 (1=0)(2=1). 
Recode educ  (1=0)(2=0) (3=0)(4=0)(5=0)(6=0)(7=0)(8=0) (9=0)(10=0)(11=0)(12=1) (12=1) (13=1)(14=1)
 (15=1)(16=1)(17=1)(18=1).
Recode q137w1 (1=1)(2=1) (3=0) (4=0).

compute longten=0.
if (catten=4) longten=1.

*beginning to examine missing data.

FREQUENCIES q132w1 q134w1 q137w1 
q139aw1 q139bw1 q139cw1_r q139dw1_r.

CROSSTABS
/TABLES=q139aw1 BY q139bW1 BY Q139cW1_r BY Q139dW1_r
/FORMAT=AVALUE TABLES
/CELLS=COUNT
/COUNT ROUND CELL.

*filters out missing values on included variables.

USE ALL.
COMPUTE filter_$=(q132w1>=0) and (q134w1>=0) and (q137w1>=0) and (q139aw1>=0)  and (q139bw1>=0) and (q139cw1_r>=0) and (q139dw1_r>=0).
value labels filter_$ 0'Not selected' 1 'Selected'.
Format filter_$ (F1.0).
Filter BY filter_$.

FREQUENCIES q132w1 q134w1 q137w1 
q139aw1 q139bw1 q139cw1_r q139dw1_r.

*removes filtering and then turns filter  variable into a missing data analysis variable.

USE ALL.
RECODE filter_$ (1=0) (SYSMIS=1) INTO missing.
VARIABLE LABELS missing 'missing dummy'.
EXECUTE.

FREQUENCIES missing.

*runs a logistic regression to see what predicts being missing in the sample.

LOGISTIC REGRESSION VARIABLES missing
/METHOD=ENTER houstype age gender inc_mon longten educ
/CRITERIA=PIN(.05) POUT(.10) ITERATE(20) CUT(.5).

* turns filter back on and mean imputes missing values.
Filter BY filter_$.

RMV /Q139bW1_1=SMEAN(Q139bW1).
RMV /Q139cW1_1=SMEAN(Q139cW1).
RMV /Q139dW1_1=SMEAN(Q139dW1).

* creates a zscore or standardized version of the variable scale.
compute scale=(q139aw1+q139bw1
+q139cw1_r+q139dw1_r).

Descriptives variables scale /save. 

*beginning regression analyses.

REGRESSION
/MISSING LISTWISE
/STATISTICS COEFF OUTS R ANOVA
/CRITERIA=PIN(.05) POUT(.10)
/NOORIGIN
/DEPENDENT zscale
/METHOD=ENTER age.

REGRESSION
/MISSING LISTWISE
/STATISTICS COEFF OUTS R ANOVA
/CRITERIA=PIN(.05) POUT(.10)
/NOORIGIN
/DEPENDENT zscale
/METHOD=ENTER age gender educ longten q1332w1 q137w1.