R/vcov.bigRreg.R

Defines functions vcov.bigRreg

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)

}
kloke/bigRfit documentation built on April 20, 2023, 4:33 p.m.