block.diag:

In musto101/wilcox_R: What the package does (short line)

Usage

block.diag(mat)

Arguments

mat

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (mat) 
{
    if (!is.list(mat)) 
        stop("mat should have list mode")
    np <- length(mat) * ncol(mat[[1]])
    m <- matrix(0, np, np)
    n = nrow(mat[[1]])
    p = length(mat)
    ilow <- 1 - n
    iup <- 0
    for (i in 1:p) {
        ilow <- ilow + n
        iup <- iup + n
        m[ilow:iup, ilow:iup] <- mat[[i]]
    }
    m
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.