R/run.R

run_test <- function() {
  data(Ec_core, package="sybil")
  ecoli <- as_GRBmodel(Ec_core)
  ecoli$show_output(FALSE)

  fva <- flux_variability(ecoli, obj_frac=NA)

  fc1 <- flux_coupling(ecoli, min_fva_cor = 0.0)
  fc2 <- flux_coupling(ecoli, min_fva_cor = 0.9)

  setwd("~/Dropbox/repos/PathwayMining/data/yeast_model")
  yeast_model <- sybil::readTSVmod(reactList = "Y7_test_react.tsv", metList = "Y7_met.tsv")

}
jensenlab/raptor documentation built on May 18, 2019, 10:14 a.m.