*! v 1.0.1 PR 12-Dec-94. Expands dataset for grouped binomials.
*       (sg26.3: STB-25)
program define _jprfplx /* y n */
	cap drop _y_eq_1
	cap drop _pop
	local k = _N
	capture {
		expand =2, clear
		gen byte _y_eq_1 = _n>`k'
		gen long _pop = cond(_y_eq_1, `1', `2'-`1')
	}
	local rc = _rc
	if `rc' {
		quietly drop if _y_eq_1
		cap drop _y_eq_1
		cap drop _pop
		error `rc'
	}
	lab var _y_eq_1 "expanded `1'"
	lab var _pop "expanded `2'"
end