*! version 1.0.0  5/12/92  (STB-9: sqv5)
program define unilogit
version 3.0
  local varlist "req ex min(2)"
  local in "opt"
  local if "opt"
  local weight "fweight"
  parse "`*'"
  parse "`varlist'", parse(" ")
  tempvar dpvar llo
  gen `dpvar'=`1'
  mac shift
  local df 1
  qui logit `dpvar' `1'
  gen `llo'=-(_result(6)+(-2*_result(2)))/2
  noi di in gr _n(1) _col(20) "Univariate Logistic Regression Models"
  noi di in gr _n _col(28) "`df' Degrees of Freedom"
  noi di in gr _n _col(1)  "Intercept LL = " %9.4f `llo'
  noi di in gr _n(1) _col(1) "Variable" _col(14) "Coeff"  _col(26) "St Error" _col(44) "LL" _col(58) "Chi2"  _col(71) "Prob"                  
  noi di in gr "__________________________________________________________________________"
  noi di _n
  while "`1'" != "" {
    qui logit `dpvar' `1'
    noi di in gr _col(1) "`1'" in ye _col(10) %9.4f _b[`1'] _col(25) %9.4f _se[`1'] _col(40) %9.4f _result(2)  _col(55) %9.4f _result(6)  _col(70) %6.4f chiprob(`df',_result(6)) 
    mac shift
  }

end