Defines functions extractGeneAssociations

Documented in extractGeneAssociations

##extract gene information from database
extractGeneAssociations <- function(database){
lapply(database@model@reactions, function(r){
gene.ass <- NA
if (length(r@notes)>0){
  gene.ass <- gsub(".*GENE.ASSOCIATION:(.*?)</.*>.*$", "\\1", r@notes)
  gene.ass <- ifelse(gene.ass==r@notes, NA, gene.ass)

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.