R/getGraph.R

In statsmaths/genlasso: Path Algorithm for Generalized Lasso Problems

Defines functions getGraph

Documented in getGraph

getGraph <- function(D) {
  mat = abs(crossprod(D))
  diag(mat) = 0
  return(graph.adjacency(mat, mode=c("upper")))
}