search for: btoa

...ence from 0 to 12 by 1 time <- seq(0,12, by=1) # Define the function? Mod <- function (t, parms){? derivs <- function(t, state, parms){? ? with(as.list (c(state, parms)), {? ? ??? ? ? #Fluxes? ? ??? ? ? inA <- kinA? ? ? AtoB <- kAtoB*A? ? ? Aout <- kAout*A? ? ? inB <- kinB? ? ? BtoA <- kBtoA*B? ? ? Bout <- kBout*B? ? ??? ? ? # Rate of change? ? ? dA <- inA+BtoA-AtoB-Aout? ? ? dB <- inB+AtoB-BtoA-Bout? ? ??? ? ??? ? ? return (list (c(dA, dB)))? ? })? }??? #Step 4: Define some starting values for the pools??? state <- c(A=5, B=3)??? ?return (ode(y=state, times=t,f...