Nothing
getD2dSparse <- function(dim1, dim2) {
D1 = bandSparse(dim1*dim2, m=dim1*dim2, k=c(0,1), diagonals=list(rep(-1,dim1*dim2),rep(1,dim1*dim2-1)))
D1 = D1[(Seq(1,dim1*dim2) %% dim1) != 0,]
D2 = bandSparse(dim1*dim2-dim1, m=dim1*dim2, k=c(0,dim1), diagonals=list(rep(-1,dim1*dim2),rep(1,dim1*dim2-1)))
return(rbind(D1,D2))
}
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.