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

PsiSN <-
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 Aug. 21, 2023, 5:13 p.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