R/isUndirected.R

In O1sims/networkR: A package for analysing social and economic networks

#' Query whether a network is undirected
#'
#' A function that queries whether some network data is undirected and returns a TRUE or FALSE value.
#' @param edgeList A dataframe of network data where sources are in the first column and targets are in the second column.
#' @param nodeList A dataframe where all nodes and their respective names are listed.
#' @param adjMatrix The network represented as an adjacency matrix.
#' @keywords undirected
#' @export
#' @examples
#' isUndirected()

isUndirected <- function(edgeList, nodeList, adjMatrix) {
  if (missing(adjMatrix)) {
    adjMatrix <- adjacencyMatrix(edgeList,
                                nodeList)
  }
  return(FALSE %in% (adjMatrix == t(adjMatrix)) == FALSE)
}