options ps=54 ls=76; FILENAME website HTTP "http://www.stat.ufl.edu/~winner/data/woolfrict1.dat"; data woolfrict; infile website; input run trt revs shrink; run; proc glm; class run trt revs; model shrink = run trt run*trt revs trt*revs; test h=run e=run*trt; test h=trt e=run*trt; contrast 'Revs Linear' Revs -3 -2 -1 0 1 2 3; contrast 'Revs Quadratic' Revs 5 0 -3 -4 -3 0 5; contrast 'Revs Cubic' Revs -1 1 1 0 -1 -1 1; contrast 'Revs Quartic' Revs 3 -7 1 6 1 -7 3; contrast 'Revs Quintic' Revs -1 4 -5 0 5 -4 1; contrast 'Revs Sextic' Revs 1 -6 15 -20 15 -6 1; contrast 'Trt*Revs Linear' trt*revs -3 -2 -1 0 1 2 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 2 1 0 -1 -2 -3, trt*revs 0 0 0 0 0 0 0 -3 -2 -1 0 1 2 3 0 0 0 0 0 0 0 3 2 1 0 -1 -2 -3, trt*revs 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -3 -2 -1 0 1 2 3 3 2 1 0 -1 -2 -3; contrast 'Trt*Revs Quadratic' trt*revs 5 0 -3 -4 -3 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -5 0 3 4 3 0 -5, trt*revs 0 0 0 0 0 0 0 5 0 -3 -4 -3 0 5 0 0 0 0 0 0 0 -5 0 3 4 3 0 -5, trt*revs 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 -3 -4 -3 0 5 -5 0 3 4 3 0 -5; contrast 'Trt*Revs Cubic' trt*revs -1 1 1 0 -1 -1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 -1 -1 0 1 1 -1, trt*revs 0 0 0 0 0 0 0 -1 1 1 0 -1 -1 1 0 0 0 0 0 0 0 1 -1 -1 0 1 1 -1, trt*revs 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 1 1 0 -1 -1 1 1 -1 -1 0 1 1 -1; contrast 'Trt*Revs Quartic' trt*revs 3 -7 1 6 1 -7 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -3 7 -1 -6 -1 7 -3, trt*revs 0 0 0 0 0 0 0 3 -7 1 6 1 -7 3 0 0 0 0 0 0 0 -3 7 -1 -6 -1 7 -3, trt*revs 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 -7 1 6 1 -7 3 -3 7 -1 -6 -1 7 -3; contrast 'Trt*Revs Quintic' trt*revs -1 4 -5 0 5 -4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 -4 5 0 -5 4 -1, trt*revs 0 0 0 0 0 0 0 -1 4 -5 0 5 -4 1 0 0 0 0 0 0 0 1 -4 5 0 -5 4 -1, trt*revs 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 4 -5 0 5 -4 1 1 -4 5 0 -5 4 -1; contrast 'Trt*Revs Sextic' trt*revs 1 -6 15 -20 15 -6 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 -1 6 -15 20 -15 6 -1, trt*revs 0 0 0 0 0 0 0 1 -6 15 -20 15 -6 1 0 0 0 0 0 0 0 -1 6 -15 20 -15 6 -1, trt*revs 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 -6 15 -20 15 -6 1 -1 6 -15 20 -15 6 -1; run; quit;