/* Simulated polygraph data using 3 judges to score session 1  */
/* Used here to model symmetry and quasi-symmetry  */
proc format;
value respfmt 1='Deceptive'
              2='Truthful'
              3='No Opinion';
data polygraph;
input J1T1 J2T1 count symm; 
format J1T1 J2T1 respfmt.;
datalines;
1 1 148 1
1 2 217 2
1 3  99 3
2 1  94 2
2 2 143 4
2 3  65	5
3 1  66 3
3 2 105 5
3 3  63 6
run;
/* Three-by-three table  */
proc freq data=polygraph;
weight count;
table j1t1*j2t1;
run;
/* Symmetry model  */
proc genmod; class symm;
model count=symm/dist=poi link=log;
run;
/* Quasi-symmetry  */
proc genmod data=polygraph; class j1t1 j2t1 symm;
model count=symm j1t1 j2t1/dist=poi link=log;
run;
/* Marginal Homogeneity  */
proc catmod data=polygraph;
weight Count;
response marginals;
model j1t1*j2t1=_response_;
repeated test 2;
run;