*! Example Ado for Kohler/Kreuter-1e kkstata@web.de
program p2
version 9
	local p2 = e(chi2)/(e(chi2) + e(N))
	display as txt "Aldrich & Nelson P^2 = " as result %4.3f `p2'
end