# NOT RUN {
#Values from CoA metabolism
kin <- c(53/0.29,50/0.78,29,6.22) #kinetic parameters kcat/Km
Keq <- c(1.1e+8,4.9e+3,1.1e+3,0.228) #equilibrium constants
A <- activities(kin,Keq) #activities
# results : A = c(1.827586e+02, 7.051282e+09, 1.563100e+13, 3.687838e+15)
# }
Run the code above in your browser using DataLab