R/PsiSG.r
In RobustAFT: Truncated Maximum Likelihood Fit and Robust Accelerated Failure Time Regression for Gaussian and Log-Weibull Case

PsiSG <-
function(x){
k <- 1.5477; z <- x/k
(6*z-12*z^3+6*z^5)/k*(abs(x) <= k) + 0*(abs(x) > k)}

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

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

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the RobustAFT package in your browser