y = c(S=1,Ab=0)
parms = c(fM2 = 4.5,
theta = 18.7,
delta_S = 0.01,
delta_Ab = 0.23,
delta_V = 2.7)
t = seq(0,35,1)
res <- model.clairon(t,y,parms)
plot(res)
Run the code above in your browser using DataLab