R/speye.R

Defines functions speye

speye <-
function(N){
  return(as.matrix(sparseMatrix(i=(1:N),j=(1:N), x=rep(1,N) ) ) )
}
JuliaWinchester/auto3dgm-fork documentation built on May 7, 2019, 12:05 p.m.