*
* Example from section 22.3.6 on pp 774-780
*
open data tablef22-2[1].txt
data(format=prn,org=columns) 1 601 id x1 x2 z1 z2 z3 z4 z5 z6 x3 z7 z8 y x4 x5
*
set affair = y>0
*
linreg y
# constant z2 z3 z5 z7 z8
ldv(censor=lower,lower=0.0) y
# constant z2 z3 z5 z7 z8
ddv affair
# constant z2 z3 z5 z7 z8
*
set ytop = %min(y,4)
ldv(censor=both,lower=0.0,upper=4.0) ytop
# constant z2 z3 z5 z7 z8
ldv(truncate=lower,lower=0.0,smpl=affair) y
# constant z2 z3 z5 z7 z8
ddv(type=count) y
# constant z2 z3 z5 z7 z8