data(Ec_core)
printObjFunc(Ec_core)
## with a different objective function than the default one
## just to illustrate how the function works ;-)
Ec_objf <- changeObjFunc(Ec_core, c("EX_etoh(e)", "ETOHt2r"), c(1, 2))
printObjFunc(Ec_objf)
Run the code above in your browser using DataLab