R/duplicated.R

In llrs/GSEAdv: Analyze Gene Sets Collections Properites

#' @describeIn duplicatedGenes Checks if different genes are described as
#' the same combination of pathways
#' @examples
#' duplicatedGenes(Info)
#' @export
setMethod("duplicatedGenes",
          signature(object = "GeneSetCollection"),
          function(object) {
            any(duplicated(t(incidence(object))))
          }
)
#' @describeIn duplicatedPathways Checks if a different pathways are described
#' as the same combination of genes.
#' @examples
#' duplicatedPathways(Info)
#' @export
setMethod("duplicatedPathways",
          signature(object = "GeneSetCollection"),
          function(object) {
            any(duplicated(incidence(object)))
          }
)