OPTIONS NODATE NONUMBER LINESIZE=80 PAGESIZE=65;
/*           ramuseks.sas                                    */
/*                                                          */
/*           Indlaeser ramus hoejder og placerer            */
/*                i dataset ramus                           */
/*                                                          */
/*                                                          */
data ramus ;
  input dreng$   alder ramus @@;
  ald = alder - 8.75;
  cards;
  A  8  52.5  A   8.5  53.2  A   9 53.3   A    9.5  53.7
  B  8  51.2  B   8.5  53.0  B   9 54.3   B    9.5  54.5
  C  8  51.2  C   8.5  51.4  C   9 51.6   C    9.5  51.9
  D  8  52.1  D   8.5  52.8  D   9 53.7   D    9.5  55.0
  E  8  50.7  E   8.5  51.7  E   9 52.7   E    9.5  53.3
  E  9.25  . 
;
PROC PRINT;
TITLE 'individuelle regressionslinier';
PROC GLM  ;
CLASS dreng ;
MODEL ramus =ald;
BY dreng;
run;
TITLE 'Faelles  regressionslinie';
PROC GLM  ;
MODEL ramus =ald;
run;
TITLE 'Mixed model';
PROC MIXED DATA=ramus  ;
CLASS DRENG;
 MODEL ramus = alder /solution outp=pred ;
 RANDOM int   alder /subject = dreng solution  type=un;
 RUN;