title2 '単純主効果の検定' ;
  proc glm data=test2;
    class s a time;
	/**単変量型の指定**/
	model y=a s(a) time time*a s(time a)/ss3;
	
	/**被験者間要因の検定**/
	test  h=a e=s(a);

   /**被験者内要因の検定**/
    test  h=time e=s(time a);
    test  h=time*a e=s(time a);


	/**時点での比較(多重性の調整なし）**/
    lsmeans time*a /slice=time e=s(time a);

run;
quit;