R/rbindList.R

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

###
### 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)
}