R/matrix2bdiag.R

In mikewlcheung/metasem: Meta-Analysis using Structural Equation Modeling

Defines functions matrix2bdiag

Documented in matrix2bdiag

matrix2bdiag <- function(x, ...) {
  tmp <- split(as.matrix(x), row(x))
  # Use bdiagMat() to handle string matrices
  out <- bdiagMat(lapply(tmp, vec2symMat, ...))
  as.matrix(out)
}