*
* Example from 16.1.5 starting page 424
*
open data transport.dat
data(format=free,org=columns) 1 21 autotime bustime dtime auto
*
ddv(dist=probit) auto
# constant dtime
*
prj(xvector=||1.0,20||,dist=probit)
disp "Marginal Effects at dtime=20" %prjdensity*%beta
prj(xvector=||1.0,30||,dist=probit)
disp "Predicted Probability at dtime=30" %prjcdf