*! version 0.1.0 2013-12-06 | vanheuvelen long

* tpr: estimate gologit2

program define tpr_sim_GOLMest

    $qui capture gologit2 $y_name $x_names if $insample, ///
        npl store(gl1) iterate(30) $difficult
    scalar GLtried = 1
    scalar GLrc = _rc
    if (GLrc==430) scalar GLstatus = .g
    scalar GLconverged = e(converged)
    if (GLconverged==0) scalar GLstatus = .g

end
exit