R/estimates.externSurv.R

In CecileProust-Lima/lcmm: Extended Mixed Models Using Latent Classes and Latent Processes

#' @export
estimates.externSurv <- function(x, cholesky)
{
  if(missing(x)) stop("The argument x should be specified")
  if (!inherits(x, "externSurv")) stop("use only with \"externSurv\" objects")
  if(!missing(cholesky)) warning("No cholesky is defined in 'externSurv' objects")
  
  if(x$conv==1 | x$conv==2 | x$conv==3)
  {
    res <- x$best
  }
  else
  {
    res <- NA
    cat("Output can not be produced since the program stopped abnormally. \n")
  }
  
  return(res)
}