###
### 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.