R/mirror.R

In yliu433/scZINB: Graphical model estimation for zero-inflated count data

#' Create the mirror of a graph.
#' 
#'
#' @param graph the graph
#' @export
#' @return returns the mirror of the graph.
mirror <- function(graph){
  graph2 <- graph
  for (i in 1:nrow(graph)){
    for (j in 1:nrow(graph)){
      if(graph[i,j] == 1){
        graph2[j,i] <- 1
      }
    }
  }
  
  return(graph2)
}