Airline Crashes
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: RAREEX2 */
/* TITLE: Airline Crashes */
/* PRODUCT: QC */
/* SYSTEM: ALL */
/* KEYS: */
/* PROCS: RAREEVENTS */
/* DATA: */
/* */
/* SUPPORT: saswgr */
/* REF: PROC RAREEVENTS, Example 2 */
/* */
/****************************************************************/
data AirCrashes;
input EventID : $14. EventDate mmddyy10. Location & $32.;
DaysBetweenCrashes = EventDate - lag(EventDate);
label DaysBetweenCrashes = 'Days';
datalines;
20020917X01907 01/13/1982 WASHINGTON, DC
20020917X01909 01/23/1982 BOSTON, MA
20020917X03104 07/09/1982 NEW ORLEANS, LA
20020917X04908 11/11/1982 MIAMI, FL
20001214X41967 01/09/1983 BRAINERD, MN
20001214X41968 01/11/1983 DETROIT, MI
20001214X44795 10/11/1983 PINCKNEYVILLE, IL
20001214X45258 12/20/1983 SIOUX FALLS, SD
20001214X39535 05/30/1984 CHALKHILL, PA
20001214X35492 01/09/1985 KANSAS CITY, KS
20001214X35493 01/21/1985 RENO, NV
20001214X36375 05/31/1985 NASHVILLE, TN
20001214X37434 08/02/1985 DALLAS/FT WORTH, TX
20001214X37757 09/06/1985 MILWAUKEE, WI
20001213X34942 10/04/1986 KELLY AFB, TX
20001213X35148 11/06/1986 TAMPA, FL
20001213X30626 04/13/1987 KANSAS CITY, MO
20001213X31759 08/16/1987 ROMULUS, MI
20001213X32505 11/15/1987 DENVER, CO
20001213X32679 12/07/1987 SAN LUIS OBISPO, CA
20001213X25439 04/28/1988 MAUI, HI
20001213X26528 08/31/1988 DALLAS/FT WORTH, TX
20001213X27734 02/09/1989 SALT LAKE CITY, UT
20001213X27705 02/24/1989 HONOLULU, HI
20001213X27867 03/15/1989 WEST LAFAYETTE, IN
20001213X27869 03/18/1989 SAGINAW, TX
20001213X28786 07/19/1989 SIOUX CITY, IA
20001213X29335 09/20/1989 FLUSHING, NY
20001213X29644 10/07/1989 ORLANDO, FL
20001213X29997 12/27/1989 MIAMI, FL
20001212X22400 01/18/1990 ATLANTA, GA
20001212X22386 01/31/1990 INDIANAPOLIS, IN
20001212X22742 03/13/1990 PHOENIX, AZ
20001212X24506 10/03/1990 CAPE CANAVERAL, FL
20001212X24751 12/03/1990 ROMULUS, MI
20001212X24751 12/03/1990 ROMULUS, MI
20001212X16433 02/01/1991 LOS ANGELES, CA
20001212X16434 02/17/1991 CLEVELAND, OH
20001212X16583 03/03/1991 COLORADO SPGS, CO
20001212X18366 10/12/1991 BRIDGEPORT, CT
20001211X14094 02/15/1992 SWANTON, OH
20001211X14270 03/22/1992 FLUSHING, NY
20001211X14503 04/08/1992 DAYTON, OH
20001211X16222 12/08/1992 FLUSHING, NY
20001211X12079 04/04/1993 CHICAGO, IL
20001206X01727 07/02/1994 CHARLOTTE, NC
20001206X02233 09/08/1994 ALIQUIPPA, PA
20001206X02420 10/31/1994 ROSELAWN, IN
20001206X02586 11/22/1994 BRIDGETON, MO
20001208X05743 05/11/1996 MIAMI, FL
20001208X06203 07/06/1996 PENSACOLA, FL
20001208X06204 07/17/1996 EAST MORICHES, NY
20001208X06132 07/20/1996 RUSSIAN MISSION, AK
20001208X07619 03/27/1997 JAMAICA, NY
20001208X08607 08/07/1997 MIAMI, FL
20001208X09291 12/28/1997 PACIFIC OCEAN
20001212X18961 06/01/1999 LITTLE ROCK, AR
20001212X19260 07/28/1999 LITTLE ROCK, AR
20001212X20339 01/31/2000 Port Hueneme, CA
20001212X20472 02/16/2000 RANCHO CORDOVA, CA
20001212X22314 11/20/2000 MIAMI, FL
20010904X01867 08/05/2001 Washington, DC
20020123X00106 09/11/2001 Shanksville, PA
20020123X00105 09/11/2001 Arlington, VA
20020123X00104 09/11/2001 New York City, NY
20020123X00103 09/11/2001 New York City, NY
20011130X02321 11/12/2001 Belle Harbor, NY
20030110X00049 01/08/2003 Charlotte, NC
20030917X01555 09/12/2003 Norfolk, VA
20040825X01286 08/13/2004 Florence, KY
20041020X01659 10/19/2004 Kirksville, MO
20050609X00744 06/07/2005 Washington, DC
20051213X01964 12/08/2005 Chicago, IL
20060106X00018 12/19/2005 Miami, FL
20060131X00140 01/16/2006 El Paso, TX
20060828X01244 08/27/2006 Lexington, KY
20070718X00958 07/10/2007 Tunica, MS
20090213X13613 02/12/2009 Clarence Center, NY
20130814X15751 08/14/2013 Birmingham, AL
;
proc rareevents data=AirCrashes;
id EventId EventDate Location;
compare DaysBetweenCrashes /
process=bar
reference=marker
odstitle='Distribution of Days between Fatal Commercial Air Crashes'
odstitle2='United States, 1982-2017'
;
chart DaysBetweenCrashes /
odstitle='Days between Fatal Commercial Air Crashes'
odstitle2='United States, 1982-2017'
nohlabel
;
run;
data AirCrashes2;
set AirCrashes;
where EventDate ne '11sep2001'd;
if EventDate <= '31dec1992'd then
_PHASE_ = '1982-1992';
else
_PHASE_ = '1993-2017';
run;
proc rareevents data=AirCrashes2;
id EventId EventDate Location;
chart DaysBetweenCrashes /
readphases=all
nochart
outlimits=AirLimits;
run;
proc rareevents data=AirCrashes2 limits=AirLimits;
id EventId EventDate Location;
chart DaysBetweenCrashes /
readphases=all
limitphases='1982-1992'
odstitle='Days between Fatal Commercial Air Crashes'
odstitle2='Limits Computed from 1982-1992 Data'
nohlabel;
run;
proc rareevents data=AirCrashes2 limits=AirLimits;
id EventId EventDate Location;
chart DaysBetweenCrashes /
readphases=all
limitphases=all
phaselegend
phaselimits
odstitle='Days between Fatal Commercial Air Crashes'
odstitle2='1982-1992 and 1993-2017'
nohlabel;
run;
data ReportDate;
input EventID : $14. EventDate mmddyy10. Location & $32.;
datalines;
00000000000000 09/20/2018 None
;
data AirCrashes3;
length _PHASE_ $ 24;
set AirCrashes(where=(EventDate ne '11sep2001'd)) ReportDate;
DaysBetweenCrashes = EventDate - lag(EventDate);
if EventDate <= '31dec1992'd then
_PHASE_ = '1982-1992';
else
_PHASE_ = '1993-September 20, 2018';
run;
proc rareevents data=AirCrashes3;
id EventId EventDate Location;
compare DaysBetweenCrashes /
process=bar
reference=marker
endobs(label='Days Since Latest Crash')
odstitle='Distribution of Days between Fatal Commercial Air Crashes'
odstitle2='United States, 1982-September 20, 2018';
chart DaysBetweenCrashes /
readphases=all
totpanels=1
phaselegend
odstitle='Days between Fatal Commercial Air Crashes'
odstitle2='United States, 1982-September 20, 2018'
endobs(label='Days Since Latest Crash');
run;
