y = c(Ab=0,S=5,L=5)
parms = c(theta_S = 611,
theta_L = 3.5,
delta_Ab = 0.025,
delta_S = 0.231,
delta_L = 0.000152)
t = seq(0,100,5)
res <- model.pasin(t,y,parms)
plot(res)
Run the code above in your browser using DataLab