# NOT RUN {
# }
# NOT RUN {
data(ecoli_core)
library(dplyr)
try(library(ROI.plugin.ecos)) # make a solver available to ROI
roi_model <- ecoli_core %>%
reactiontbl_to_expanded %>%
expanded_to_ROI
if(length(ROI::ROI_applicable_solvers(roi_model))>=1){
roi_result <- ROI::ROI_solve(roi_model)
ecoli_core_with_flux <- ecoli_core %>%
mutate(flux = roi_result[['solution']])
}
# }
Run the code above in your browser using DataLab