###
### R routines for the R package mixmeta (c)
#
rbindList <-
function(list, ncol) {
#
################################################################################
# FUNCTION TO EXTRACT THE PARAMETERS DEFINING THE RANDOM PART
#
# DEFINE IF MATRIX AND COLUMNS
ismat <- !is.null(dim(list[[1]]))
#
# IF A MATRIX, TRANSPOSE AND GET THE ELEMENTS
if(ismat) list <- lapply(list, function(x) c(t(x)))
#
# DEFINE THE MATRIX
matrix(unlist(list), ncol=ncol, byrow=T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.