R/E0vect.R

"E0vect" <-
function(xbar) {
#xk   <- 1.717817
#E01p <- integrate(Psiphi.w, lower=-xk,upper=xk)$value
#E0pp <- integrate(Chiphi.w, lower=-30,upper=4)$value
i1   <- -0.05043133; i2  <-  0.003383146
E0   <- matrix(c(i1*xbar,i2),ncol=1)
E0}

Try the RobustAFT package in your browser

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

RobustAFT documentation built on Aug. 21, 2023, 5:13 p.m.