R/diagId.R

Defines functions diagId

Documented in diagId

diagId <-
function(n){
  if(n < 1) stop("n must be positive")
  if(n == 1) return(1)
  ans <- c(1, rep(0, (n-1)))
  for(i in 2:n) ans[i] <- ans[i-1] + i
  return(ans)
}

Try the synRNASeqNet package in your browser

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

synRNASeqNet documentation built on May 2, 2019, 6:01 a.m.