Content

* ITSP ex4.1

clear
set obs 1000000
set seed 20080616
g nchild = int(12*uniform())+1
forv i=1/12 {
	qui g child`i' = cond(nchild >= `i',int(30 * uniform()) + 1, .)
}
su
save ex4.1, replace

set rmsg on
egen nschool = rcount(child1-child12), cond(@ > 5 & @ < 19)

drop nschool
generate nschool = 0
foreach v of varlist child1-child12 {
     qui replace nschool = nschool + inrange(`v', 6, 18)
}

drop nschool
generate nschool = 0
generate anyschool = 0
foreach v of varlist child1-child12 {
     qui replace nschool = nschool + inrange(`v', 6, 18)
     qui replace anyschool = max(anyschool, inrange(`v', 6, 18))
}

drop nschool
drop anyschool
local nschool 0
foreach v of varlist child1-child12 {
    local nschool "`nschool' + inrange(`v', 6, 18)"
}
di "`nschool'"
generate byte nschool = `nschool'
generate byte anyschool = nschool > 0


set rmsg off