R/E0.vect.n.R

In RobustAFT: Truncated Maximum Likelihood Fit and Robust Accelerated Failure Time Regression for Gaussian and Log-Weibull Case

"E0.vect.n" <-
function(xbar,ku,u) {
i1  <- 0 #integrate(Psiphi.n, lower=-ku,upper=ku)$value
i2  <- integrate(Chiphi.n, lower=-u,upper=u)$value
E0l <- matrix(c(i1*xbar,i2),ncol=1)
E0l}