Nothing
#' @export
estimates.lcmm <- function(x,cholesky=TRUE)
{
if(missing(x)) stop("The argument x should be specified")
if (!inherits(x, "lcmm")) stop("use only with \"lcmm\" objects")
if(is.na(as.logical(cholesky))) stop("cholesky should be TRUE or FALSE")
if(x$conv==1 | x$conv==2 | x$conv==3)
{
res <- x$best
cholesky <- as.logical(cholesky)
if(isTRUE(cholesky) & x$N[3]>0)
{
if(!isTRUE(x$call$idiag) | x$N[3]==1)
{
res[x$N[1]+x$N[2]+1:x$N[3]] <- x$cholesky
}
else
{
nea <- sum(x$idea0)
res[x$N[1]+x$N[2]+1:x$N[3]] <- x$cholesky[-setdiff(1:(nea*(nea+1)/2),1:nea*(1:nea+1)/2)]
}
names(res) <- sub("varcov","cholesky",names(res))
}
}
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.