probit example code