vcov = rbind(c(0.010051348, -0.0039332248, -0.0036965571),
c(-0.003933225, 0.0051807876, 0.0007706792),
c(-0.003696557, 0.0007706792, 0.0050996587))
colnames(vcov) <- rownames(vcov) <- c("(Intercept)", "x1", "x2")
expnms <- rownames(vcov)[2:3]
aname = rownames(vcov)[1]
vc_comb(aname, expnms, vcov) # returns the given covariance matrix
Run the code above in your browser using DataLab