Description Usage Arguments Value Examples
A generic function to run a simulation loop for a fixed period of time.
1 | run_simple(step_function, initial.pop, end.time, ...)
|
step_function |
Function to run a timestep ( |
initial.pop |
Initial population data frame with columns corresponding to function requirements |
end.time |
End time of simulation |
... |
(optionally) any other arguments for |
Data frame containing population history of simulation over time
1 2 3 4 5 6 7 8 9 10 11 12 | growth <- function(latest.df, growth.rate) {
current.count <- latest.df$count
growth.num <- current.count * growth.rate
next.count <- current.count + growth.num
next.time <- latest.df$time + 1
new.df <- data.frame(time=next.time, count=next.count)
finished <- next.count == 0
list(updated.pop=new.df, end.experiment=finished)
}
df <- data.frame(time=0, count=1)
results <- run_simple(growth, df, 100, growth.rate=0.1)
plot_populations(results)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.