*! PR 21-Dec-93. Expands grouped binomials.
program define _jprfplx /* y n */
	cap drop _outcome
	cap drop _pop
	local k = _N
	local k1 = _N + 1
	quietly expand =2, clear
	capture {
		gen byte _outcome = 0 in 1/`k'
		replace _outcome = 1 in `k1'/l
		gen _pop = `2'-`1' in 1/`k'
		replace _pop = `1' in `k1'/l
	}
	local rc = _rc
	error `rc'
end