1
#' @title Transitive Reduction 
2
#' @description  Calculates the transitive reduction of a partial ranking.
3
#'
4
#' @param P A partial ranking as matrix object calculated with [neighborhood_inclusion]
5
#'    or [positional_dominance]. 
6
#' @return transitive reduction of `P`
7
#' @author David Schoch
8
#' @examples
9
#' library(igraph)
10
#' 
11
#' g <- threshold_graph(100,0.1)
12
#' P <- neighborhood_inclusion(g)
13
#' sum(P)
14
#' 
15
#' R <- transitive_reduction(P)
16
#' sum(R)
17
#' @export
18
transitive_reduction <- function(P) {
19 2
  B <- transreduct(P)
20 2
  return(B)
21
}

Read our documentation on viewing source code .

Loading