** Generate some fake homeland security data **;  
data terrorists; 
do keywd = 1 to 30;
label keywd = "number of keywords used"; 
  do hour = 1 to 25 by .5; 
  label hour = "hour sent (0-24)";
    do length = 1 to 200 by 10; 
	label length = "message length";
	  do domain = "com", "edu", "gov", "other"; 
	  label domain = "domain of origin"; 
	   do r = 1 to 8; 
	   p = .02; drop r p; 
	    if 21.5 < hour < 24.6 then do; 
		  if 100 < length < 150 or 15 < keywd < 22 
		    then p=.8; end;
		if domain = "edu" and hour < 3 and keywd > 25 then p=.8; 
	 suspect = (ranuni(1827655)<p); 
	    if ranuni(123) < .05 then output; 
end; end; end; end; end; 
proc means; run;