options ls=80 ;
  data a ;
    input i j k x2 x3 x4 x5 x6 ;  * read indices, design matrix ;
    y1 = 2 + 3*j + 3*k ;          * four mean functions ;
    y2 = 2 + 3*i*i ;
    y3 = 2 + 3/i ;
    y4 = 4 + 3*j + 3*k ;
    cards ;
 1 1 2   1 0 1 1 0
 1 2 2   1 0 0 2 0 
 1 1 3   1 0 1 0 1
 1 2 3   1 0 0 1 1 
 2 1 2   0 1 1 1 0
 2 2 2   0 1 0 2 0
 2 1 3   0 1 1 0 1
 2 2 3   0 1 0 1 1 
 ;
  proc print data=a ;
    title 'data for question 3' ;
 run ;
  proc glm data = a ;
   class i ;                      * plots ;
   model y1 y2 y3 y4 = i x4 x5 x6 ;
   title2 'look for zero ss' ;
 run ;