R/matArrays.R

matArrays <-
function (lis, na.rm = FALSE) {
    M <- length(lis)
    dims <- dim(lis[[1]])
    mat <- unlist(lis)
    dim(mat) <- c(length(mat)/M, M)
    array(rowMeans(mat), dims)
}
drizopoulos/ltm documentation built on March 25, 2022, 4:46 a.m.