* Temporal distribution of sexual assault within victim age categories.


GET FILE='Directory\Path\US99 victim segment.sav'.
COMPUTE sex_aslt = 0.
IF (msvoff = 110 or
msvoff = 180 or
msvoff = 181 or
msvoff = 182 or
msvoff = 183) sex_aslt = 1.
FREQ sex_aslt.
SELECT IF (sex_aslt = 1).
SAVE OUTFILE = 'Directory\Path\sex_aslt.sav'/keep = 
  ori inc_num v_age msvoff.
SORT CASES BY
  ori (A) inc_num (A) .
MATCH FILES /FILE=*
 /TABLE='Directory\Path\1999 Incident.sav'
 /BY ori inc_num
 /DROP= aggasl arfemale arr0509 arr1017 arr1524 arr65 arr_cnt arradult
  arrmale asl_arr att_comp bur bur_arr clr_arr clr_excp firearm inc_dy inc_loc
  inc_mo inc_yr indivl lar lar_arr msioff mur mur_arr mvt mvt_arr
  oasl_arr off1017 off1524 off65 off_cnt offadult offemale offmale ofns_cnt
  oth_asl rap rap_arr rob rob_arr vadult vage1017 vage1524 vage65 vfemale
  vic_cnt vic_inj vlt18 vmale.
FREQ msvoff inc_hr.

RECODE inc_hr 
  (6 = 1)
  (7 = 2)
  (8 = 3)
  (9 = 4)
  (10 = 5)
  (11 = 6)
  (12 = 7)
  (13 = 8)
  (14 = 9)
  (15 = 10)
  (16 = 11)
  (17 = 12)
  (18 = 13)
  (19 = 14)
  (20 = 15)
  (21 = 16)
  (22 = 17)
  (23 = 18)
  (1 = 19)
  (2 = 20)
  (3 = 21)
  (4 = 22)
  (5 = 23)into inc_hr2.
VALUE LABELS inc_hr2
 1 '6 a.m.'
 2 '7 a.m.'
 3 '8 a.m.'
 4 '9 a.m.'
 5 '10 a.m.'
 6 '11 a.m.'
 7 'Noon'
 8 '1 p.m.'
 9 '2 p.m.'
 10 '3 p.m.'
 11 '4 p.m.'
 12 '5 p.m.'
 13 '6 p.m.'
 14 '7 p.m.'
 15 '8 p.m.'
 16 '9 p.m.'
 17 '10 p.m.'
 18 '11 p.m.'
 19 '1 a.m.'
 20 '2 a.m.'
 21 '3 a.m.'
 22 '4 a.m.'
 23 '5 a.m.'.
VARIABLE LABELS inc_hr2 'Time of incident'.
COMPUTE agegrp = 0.
IF (v_age gt 0 and v_age lt 6)agegrp = 1.
IF (v_age ge 6 and v_age lt 12)agegrp = 2.
IF (v_age ge 12 and v_age lt 18)agegrp = 3.
IF (v_age ge 18)agegrp = 4.
VALUE LABELS agegrp 1 'Victims under age 6'
  2 'Victims ages 6 through 11'
  3 'Victims ages 12 through 17'
  4 'Victims ages 18 and over'.
USE ALL.
COMPUTE filter_$=(rptdate = ' ' and inc_hr gt 0 and agegrp gt 0).
VARIABLE LABEL filter_$ "rptdate = ' ' (FILTER)".
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
SORT CASES BY agegrp .
SPLIT FILE
  LAYERED BY agegrp .
GRAPH
  /BAR(SIMPLE)=PCT BY inc_hr2
  /MISSING=REPORT
  /TEMPLATE='Directory\Path\Table 4 template.sct'
  /TITLE 'Temporal distribution of sexual assault' 
  'within victim age categories'.