Defines functions buildSBMLFromGenes

Documented in buildSBMLFromGenes

##construct an SBML model including reactions involving (a) given gene(s) 
buildSBMLFromGenes <- function(query, database, logical.fun="any"){
fun <- match.fun(logical.fun)
all.gas <- extractGeneAssociations(database)
relevant.reaction.ids <- unique(names(all.gas[which(apply(sapply(query, grepl, all.gas), 1, fun))]))
if (length(relevant.reaction.ids)==0){
cat("No reactions found for query ", query, "\n")
.buildSubModel(database@model, relevant.reaction.ids)                                                

Try the BiGGR package in your browser

Any scripts or data that you put into this service are public.

BiGGR documentation built on Nov. 8, 2020, 5:38 p.m.