R/survival_censored.R

Defines functions survival_censored

#' @export

survival_censored <- function(y0, mu, sigma2, times) {
  return(pnorm((mu*times + y0)/sqrt(sigma2*times)) - exp(-2*y0*mu/sigma2)*pnorm((mu*times - y0)/sqrt(sigma2*times)))
}
vegarsti/fhtboost documentation built on Dec. 14, 2019, 10:44 p.m.