NAMELIST ; X11 = ONE,X1 ; X22 = ONE,X2 $ /* Full Observability */ ? CREATE INITIAL VALUES FOR BIVARIATE PROBIT PROBIT ; LHS = FY1 ; RHS = X11 $ MATRIX ; BT = B $ PROBIT ; LHS = FY2 ; RHS = X22 $ MATRIX ; BP = B $ ? MLE FOR FULL OBSERVABILITY MODEL BIVA ; LHS = FY1,FY2 ; RH1 = X11 ; RH2 = X22 ; START = BT,BP,0 ; TLF = 0.00001 ; TLB = 0.00001 ; TLG = 0.00001 ; MAXIT = 1000 ; PAR $ /* Censored Probit */ ? CREATE INITIAL VALUES FOR BIVARIATE PROBIT PROBIT ; LHS = CY1 ; RHS = X11 $ MATRIX ; BT = B $ REJECT ; CY1 # 1 $ PROBIT ; LHS = CY2 ; RHS = X22 $ MATRIX ; BP = B $ SAMPLE ; ALL $ ? CENSORED PROBIT MODEL BIVA ; LHS = CY2,CY1 ; RH1 = X22 ; RH2 = X11 ; START = BP,BT,0 ; TLF = 0.00001 ; TLB = 0.00001 ; TLG = 0.00001 ; MAXIT = 1000 ; SELECTION ; PAR $ /* Poirier probit */ PROBIT ; LHS = Y ; RH1 = X11 ; RH2 = X22 ; TLF = 0.00001 ; TLB = 0.00001 ; TLG = 0.00001 ; MAXIT = 1000 ; PAR $ /* Abowed-Farber Probit */ PROBIT ; LHS = Y ; RH1 = X11 ; RH2 = X22 ; TLF = 0.00001 ; TLB = 0.00001 ; TLG = 0.00001 ; MAXIT = 1000 ; SELECTION $ /* SURE (Seemingly Uncorrelated Regression Model) */ SURE ; LHS = YY1,YY2 ; EQ1 = X11 ; EQ2 = X22 $