##' @export
vcov.polywog <- function(object, ...)
{
ncf <- length(coef(object))
if (!is.null(object$boot.matrix)) {
ans <- var(t(as.matrix(object$boot.matrix)))
} else {
ans <- matrix(NA, nrow = ncf, ncol = ncf)
}
return(ans)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.