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

ChiSG <-
function(x){
k <- 1.5477; z <- x/k
(3*z^2 - 3*z^4 +z^6)*(abs(x) <= k) + 1*(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