*! version 1.1              22 September 1992  (STB-10: sg14)
program define tidwell
    version 3.0
        mac def _varlist "req ex min(2)"
        local if "opt"
        local in "opt"
        parse "`*'"
        parse "%_varlist", parse(" ")
         local lhs="`1'"
        mac shift
        local rhs "`*'"
         qui gen resp0 = `1'*log(`1')
         qui fit `lhs' `rhs' `if' `in'
         local denom=_b[`1']
         qui fit `lhs' `rhs' resp0 `if' `in'
         local num=_b[resp0]
di "score test for whether should transform `1': t = "%7.3f /*
 */ _b[resp0]/_se[resp0] " p-value: " %5.4f tprob(_result(5),_b[resp0]/_se[resp0])
*        avplot resp0
di "if above significant, transform `1' using "%6.3f (`num'/`denom')+1 /*
 */ " (round to " round((`num'/`denom')+1,.5) ")"
drop resp0
end