# A comparison of two flux distributions generated by FBA_solve
data(Ecoli_core)
Ec_Mutant<-Ecoli_core
#The reaction number for O2 exchange is 36 by setting
#the corresponding bounds to zero we make a aerobic
#respiration deficient mutant
Ec_Mutant$bounds$lower$val[36]=0
Ec_Mutant$bounds$upper$val[36]=0
mut_flux<-FBA_solve(Ec_Mutant)
wt_flux<-FBA_solve(Ecoli_core)
flux_difference_plotter(wt_flux,mut_flux,Ecoli_core,graph_fname="Flux_comparison")Run the code above in your browser using DataLab