data	fig5a ;
input retrieval_team_id $ out_time sorter $ F_YEAR;
datalines ;
A001 6 A111 2016
A001 3 A111 2016
A001 9 A111 2016
A001 8 A111 2016
A002 6 A112 2016
A002 2 A112 2016
A002 6 A112 2016
A002 7 A112 2016
A003 4 A113 2016
A003 9 A113 2016
A003 4 A113 2016
A003 2 A113 2016
A004 7 A114 2016
A004 5 A114 2016
A004 3 A114 2016
A004 8 A114 2016
A005 8 A115 2016
A005 6 A114 2016
A005 4 A115 2016
A005 9 A115 2016
A006 7 A115 2016
A006 4 A116 2016
A006 8 A116 2016
A006 6 A116 2016
A007 3 A117 2016
A007 8 A117 2016
A007 5 A117 2016
A007 2 A117 2016
A008 9 A118 2016
A008 2 A118 2016
A008 6 A118 2016
A008 4 A118 2016
A009 3 A119 2016
A009 3 A119 2016
A009 8 A119 2016
A009 3 A119 2016
A010 1 A110 2016
A010 5 A110 2016
A010 3 A110 2016
A010 9 A110 2016
A011 7 A111 2016
A011 5 A111 2016
A011 2 A111 2016
A011 7 A111 2016
run ;


data	fig5b ;
input retrieval_team_id $ out_time sorter $ F_YEAR ;
datalines ;
A001 6 1 2016
A001 3 1 2016
A001 9 1 2016
A001 8 1 2016
A002 6 2 2016
A002 2 2 2016
A002 6 2 2016
A002 7 2 2016
A003 4 3 2016
A003 9 3 2016
A003 4 3 2016
A003 2 3 2016
A004 7 4 2016
A004 5 4 2016
A004 3 4 2016
A004 8 4 2016
A005 8 5 2016
A005 6 4 2016
A005 4 5 2016
A005 9 5 2016
A006 7 5 2016
A006 4 6 2016
A006 8 6 2016
A006 6 6 2016
;
run ;





ods rtf ;


ods rtf	startpage=now ;

%macro figure5(data,var,format,cols) ;
proc sgpanel 	data=&data ;

panelby	&var /
		spacing		= 10
		novarname 
		columns		= &cols	
		headerattrs = (family=Arial) ;

vbox   	out_time / category=	f_year ; 

rowaxis label = "Retrieval Time (Hours)" labelattrs=(family=Arial) ;
colaxis label = " " ;

run ;
%mend figure5 ;


ods rtf text=
"~S={cellwidth=18.45cm font_face='Arial' font_size=10pt font_weight=bold just=l}
Figure 5a~R'\tab '" ;

ods graphics on /reset height=5.75cm width=18.3cm border=off imagefmt=png ;
%figure5(fig5a,sorter,sorter.,4) ;


ods rtf text=
"~S={cellwidth=18.45cm font_face='Arial' font_size=10pt font_weight=bold just=l}
Figure 5b~R'\tab '" ;

ods graphics on /reset height=10.5cm width=18.3cm border=off imagefmt=png ;
%figure5(fig5b,retrieval_team_id,$teams.,3) ;