R/edgesNoDupls.R

Defines functions .edgesNoDupls

.edgesNoDupls <- function(g){
  am <- adjacencyMatrix(g)
  am[lower.tri(am)]<-0
  edges <- apply(am,1,function(x){
    which(x!=0)
  })
  return(edges)
}

Try the QuACN package in your browser

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

QuACN documentation built on May 2, 2019, 5:46 p.m.