capture log close
log using adaptive, replace text
set more off

/* Poisson */
use epilep, clear

* Model III
gllamm y lbas treat lbas_trt lage v4, i(subj) fam(poiss) nip(10) adapt trace

* Model IV
eq subj: cons
eq subj_v: visit
gllamm y lbas treat lbas_trt lage visit, i(subj) fam(poiss) nrf(2)/*
        */ eqs(subj subj_v) trace nip(7) adapt

/* Logistic */
infile child family comm care y x1 x2 x3 using s3bb1.dat, clear
gllamm care x1 x2 x3, i(family comm) l(logit) f(binom) nip(10) trace adapt
gllamm care x1 x2 x3, i(family comm) l(logit) f(binom) nip(5) trace adapt
log close
exit