Displaying 1 result from an estimated 1 matches for "loggrowth".
2012 Feb 03
1
Logistic population growth and deSolve
...r messages to clue
me in on where I am making a mistake. Advice would be grealty appreciated.
Thanks.
library(deSolve)
parameters = c(K=305,
ra=0.8,
rb=1.5,
rc=2.1,
rd=2.6)
state = c(Na=5,
Nb=5,
Nc=5,
Nd=5)
logGrowth = function(time, state, parameters)
{
with(as.list(c(state,parameters)),
{
dNa.dt = ra * Na * (1-(Na/K))
dNb.dt = rb * Nb * (1-(Nb/K))
dNc.dt = rc * Nc * (1-(Nc/K))
dNd.dt = rd * Nd * (1-(Nd/K))
return(list(c(dNa.dt, dNb.dt, dNc.dt, dNd.dt)))
})
}
times = 1:...