R/getGraph.R

Defines functions getGraph

Documented in getGraph

getGraph <- function(D) {
  mat = abs(crossprod(D))
  diag(mat) = 0
  return(graph.adjacency(mat, mode=c("upper")))
}
glmgen/genlasso documentation built on Jan. 2, 2023, 7:01 a.m.