R/genes_pathway.R

#' genes_pathway
genes_pathway <- function(genes_query, pathways_query) {
  gip <- apply(pathways_query, 1, function(z) paste(genes_query[which(z == 1)], collapse = " | "))
  return(gip)
}
diogocamacho/oranges documentation built on June 6, 2019, 11:52 p.m.