R/xpndMat.R

In mixmeta: An Extended Mixed-Effects Framework for Meta-Analysis

###
### R routines for the R package mixmeta (c)
#
xpndMat <-
function(vech) {
#
################################################################################
#
  dim <- (-1+sqrt(1+8*length(vech)))/2
  if(dim%%1!=0L) stop("dimension of 'vech' not consistent")
  mat <- matrix(nrow=dim,ncol=dim)
  mat[lower.tri(mat,diag=TRUE)] <- as.matrix(vech)
  mat[upper.tri(mat)] <- t(mat)[upper.tri(mat)]
#
  mat
}