Nothing
"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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.