Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.