R/restmtx.R

"restmtx" <-
function(nsteps,m)
  { tmp <- c(1,rep(0,m-1))
    R <- matrix(0,nrow=nsteps,ncol=(nsteps*m))
    for(i in 1:nsteps)
      { R[i,1:(i*m)] <- matrix(rep(tmp,i),nrow=1) }
    return(R)
  }

Try the MSBVAR package in your browser

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

MSBVAR documentation built on May 30, 2017, 1:23 a.m.