DATA BOREDOM; 
  BORED = 0; E=0; 
    DO T=1 TO 120; time = t/4; 
      BORED = 10 + .08*T + E; E=.8*E + 2.5*NORMAL(1230987); 
      OUTPUT; END; 
	GOPTIONS CBACK=BLUE; 
	AXIS1 C=WHITE offset=(5,5); 
	AXIS2 C=WHITE LABEL=(ANGLE=90 h=1.5 f=triplex); 

data anno; xsys='2'; ysys='2'; function="label";
color="yellow";  length text $ 24;
X=26.6;
Y=27; text = " Recorder--- >"; output; x=24.9;
Y=26; text=  "Falls "; output; x=25.1; 
Y=25; text = "Asleep "; output; 
X=13; Y=4; text = "<----"; output; 
X=15.7; text = "Jokes"; output; 
X=15; Y=24.3; text = "Equations"; output; x=14;
Y=22.5; text =       "     |     \  "; output; 
PROC GPLOT data=boredom annotate=anno;  
PLOT BORED*time/HAXIs=AXIS1 VAXIS=AXIS2; 
LABEL BORED = "% Bored by Dickey's Talk"; 
label time="Minutes Into Talk";
TITLE h=1.5 C=WHITE "Boredom vs Talk Length";
SYMBOL1 V=NONE I=JOIN C=WHITE W=2; 
proc arima data=boredom;
i var = bored(1);
i var = bored stationarity = (adf); 
RUN;