TITLE:
  Ch 4: Empty Means, Random Intercept in G
  Diagonal R

DATA:
  FILE = MPLUS_Chapter4.csv;
  FORMAT = FREE;

DATA LONGTOWIDE:
  LONG = posmood;
  WIDE = posmood1-posmood7;
  IDVARIABLE = PersonID;
  REPETITION = studyday (1-7);

VARIABLE:
  NAMES = PersonID studyday posmood;
  USEVARIABLES = posmood1-posmood7;
  MISSING = ALL (-9999);

ANALYSIS:
  ESTIMATOR = ML;
  PROCESSORS = 4;

OUTPUT:
  STDYX;

MODEL:
  RandInt BY posmood1-posmood7@1;
  RandInt (intvar);
  posmood1-posmood7 (resvar);
  [posmood1-posmood7@0 RandInt];

MODEL CONSTRAINT:
  NEW(est1);
! est1: Intraclass Correlation
  est1 = intvar/(intvar+resvar);