data sfdata(drop=i); do i=1 to 6; input subject@@; do judge=1 to 4; input score@@; output; end; end; datalines; 1 9 2 5 8 2 6 1 3 2 3 8 4 6 8 4 7 1 2 6 5 10 5 6 9 6 6 2 4 7 ; ods pdf file="c:\kgwet\sas2\chap4\shroutfleiss.pdf" style=Ocean; proc print data=sfdata;run; /* Define the INTRACC macro */ %inc "c:\kgwet\sas2\chap4/intracc.sas"; %intracc(data=sfdata,depvar=score,target=subject, rater=judge); ods pdf close;