capture log close log using effic, replace clear set mem 3m set more off use effic1, clear rename xsayself xsay6 reshape long xsay, i(id) j(item) drop if xsay==0 tab item, gen(i) rename i6 self for var china age male educyrs: gen s_X=self*X gen vign = 1-self eq thresh: china age male educyrs eq het: vign self cons def 1 [lns1]self=0 gllamm xsay s_china s_age s_male s_educyrs i1 i2 i3 i4 i5, /* */ i(id) link(soprobit) s(het) ethresh(thresh) constr(1) /* */ init log close exit