Nothing
shrinkcovmathat.default <- function(x, ...) { # nolint
object <- list()
object$Sigmahat <- x$Sigmahat # nolint
object$lambdahat <- x$lambdahat
object$Sigmasample <- x$Sigmasample # nolint
object$centered <- x$centered
object$Target <- x$Target # nolint
class(object) <- "shrinkcovmathat"
object
}
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.