options ls=78; title "Profile Plot - Swiss Bank Notes"; data swiss; infile "D:\Statistics\STAT 505\data\swiss3.txt"; input type $ length left right bottom top diag; variable="length"; x=length-215.0; output; variable="left "; x=left-130.0; output; variable="right "; x=right-130.0; output; variable="bottom"; x=bottom-9.0; output; variable="top "; x=top-10.0; output; variable="diag "; x=diag-141.354; output; run; proc sort; by type variable; run; proc means; by type variable; var x; output out=a mean=xbar; run; filename t1 "swiss13b.gif"; goptions device=gif gsfname=t1 gsfmode=replace; proc gplot; axis1 length=4 in label=("Mean"); axis2 length=6 in; plot xbar*variable=type / vaxis=axis1 haxis=axis2; symbol1 v=J f=special h=2 i=join color=black; symbol2 v=K f=special h=2 i=join color=black; run;