vcov.bigRreg <- function(x) {
pp1 <- length(x$xbar)+1
K <- diag(pp1)
K[1,(2:pp1)] <- -(x$xbar)
K %*% vcov.bigRfit_xc1(x) %*% t(K)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.