Nothing
########################################################################
## Predator-Prey Model
########################################################################
lv <- new("odeModel",
main = function (time, init, parms) {
with(as.list(c(init, parms)), {
dN1 <- k1 * N1 - k2 * N1 * N2
dN2 <- - k3 * N2 + k2 * N1 * N2
list(c(dN1, dN2))
})
},
parms = c(k1 = 0.2, k2 = 0.2, k3 = 0.2),
times = c(from = 0, to = 100, by = 0.5),
init = c(N1 = 0.5, N2 = 1),
solver = "lsoda"
)
lv <- sim(lv)
plot(lv)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.