proc logiti(v);retp(1./(1+exp(-v)));endp;