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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.