R/blkdiag.R

Defines functions blkdiag

blkdiag <- function(A,B){

  dimA = dim(A)
  dimB = dim(B)
  C = array(0,dimA+dimB)
  C[1:dimA[1],1:dimA[2]] = A	
  C[dimA[1]+(1:dimB[1]),dimA[2]+(1:dimB[2])] = B
  return(C)

}

Try the LMest package in your browser

Any scripts or data that you put into this service are public.

LMest documentation built on Aug. 27, 2023, 5:06 p.m.