R/s1psiphi.n.R

"s1psiphi.n" <-
function(z) {z*psi.weight(z,ips=2,xk=1.5477)*dnorm(z)}

Try the RobustAFT package in your browser

Any scripts or data that you put into this service are public.

RobustAFT documentation built on June 19, 2026, 9:08 a.m.