# NOT RUN {
# Downloading stoichiometric reactions
all <- getReference(organism = "all",sep = ";")
eco <- getReference(organism = "eco",sep = ";")
# Filtering reactions
all <- mapReactions(reactionList = all$reaction%in%eco$reaction,
referenceData = all,
by = "bool",
inverse = TRUE)
# gapFill
gapFill(reactionList = eco$reaction,
reference = all$reaction,
limit = 0.25,
woCompartment = TRUE,
consensus = FALSE)
# }
Run the code above in your browser using DataLab