FREQUENCIES VARIABLES=RClass S2Class
  /ORDER=ANALYSIS.

RECODE RClass S2Class (1 thru 2=1) (3 thru 5=2) (6 thru 7=3) (ELSE=SYSMIS) INTO rc2 sc2.
EXECUTE.

CROSSTABS
  /TABLES=rc2 BY sc2
  /FORMAT=AVALUE TABLES
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.

COMPUTE rcsc=(rc2 * 10) + sc2.
EXECUTE.

CROSSTABS
  /TABLES=rcsc BY Internet
  /FORMAT=AVALUE TABLES
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.

FREQUENCIES VARIABLES=RClass S2Class
  /PIECHART FREQ
  /ORDER=ANALYSIS.

FREQUENCIES VARIABLES=Duration
  /HISTOGRAM
  /ORDER=ANALYSIS.

RECODE Duration (5 thru 500=Copy) (ELSE=SYSMIS) INTO dur2.
EXECUTE.

FREQUENCIES VARIABLES=dur2
  /FORMAT=NOTABLE
  /HISTOGRAM
  /ORDER=ANALYSIS.

FREQUENCIES VARIABLES=dur2
  /FORMAT=NOTABLE
  /NTILES=4
  /STATISTICS=STDDEV VARIANCE MINIMUM MAXIMUM MEAN MEDIAN MODE SKEWNESS SESKEW KURTOSIS SEKURT
  /ORDER=ANALYSIS.

EXAMINE VARIABLES=dur2 BY RClass
  /PLOT=BOXPLOT
  /STATISTICS=NONE
  /NOTOTAL.

EXAMINE VARIABLES=dur2 BY REconAct
  /PLOT=BOXPLOT
  /STATISTICS=NONE
  /NOTOTAL.

GRAPH
  /SCATTERPLOT(BIVAR)=RAge WITH dur2
  /MISSING=LISTWISE.

CORRELATIONS
  /VARIABLES=RAge dur2
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

CROSSTABS
  /TABLES=rcsc BY Internet
  /FORMAT=AVALUE TABLES
  /CELLS=COUNT COLUMN 
  /COUNT ROUND CELL.

CROSSTABS
  /TABLES=RSex BY Internet
  /FORMAT=AVALUE TABLES
  /STATISTICS=RISK 
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.

USE ALL.
COMPUTE filter_$=(Internet <= 2).
VARIABLE LABEL filter_$ 'Internet <= 2 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.

CROSSTABS
  /TABLES=RSex BY Internet
  /FORMAT=AVALUE TABLES
  /STATISTICS=RISK 
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.

CROSSTABS
  /TABLES=RSex BY Internet
  /FORMAT=AVALUE TABLES
  /STATISTICS=PHI 
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.

CROSSTABS
  /TABLES=rcsc BY Internet
  /FORMAT=AVALUE TABLES
  /STATISTICS=PHI 
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.

FILTER OFF.
USE ALL.
EXECUTE.

MEANS TABLES=Duration BY rcsc
  /CELLS MEAN COUNT STDDEV.

MEANS TABLES=Duration BY rcsc
  /CELLS MEAN COUNT STDDEV
  /STATISTICS ANOVA.

RECODE Internet (1=1) (2=0) (ELSE=SYSMIS) INTO int2.
EXECUTE.

GRAPH
  /LINE(MULTIPLE)=MEAN(int2) BY RAgeCat BY RSex.