#' ---
#' title: "Comparing a simple growth model with a birth-death model"
#' author: "Richard Reeve"
### <b>
#' date: '`r format(Sys.Date(), "%B %d %Y")`'
### </b>
#' output: html_document
#' ---
#'
### <b>
#'
#' Load in the functions that do the work
### </b>
library(RPiR)
source("0104-step-growth.R")
source("0105-step-birth-death.R")
#' We are going to compare two population dynamics models:
#'
#' 1. A simple growth model
### <b>
#' $$N(t + 1) = \lambda \times N(t) + N(t)$$
### </b>
#' 2. A birth death model
### <b>
#' $$N(t + 1) = b \times N(t) - d \times N(t) + N(t)$$
### </b>
#'
(note the blank #’ line before the numbered list)
#' First we set up the simulation parameters for every experiment.
### <b>
## Set the birth and death rates
### </b>
birth.rate <- 0.2
death.rate <- 0.1
### <b>
## Starting population size
### </b>
initial.count <- 1
### <b>
#'
#' ## Run the full $birth, death$ simulation
### </b>
## Set up the population starting size (at the first timestep)
population.df1 <- data.frame(count = initial.count)
(note the blank #’ line again before the section header)
#+ initial, fig.width=5, fig.height=5, fig.align="center", fig.cap="Fig. 1: Birth-death model"
plot_populations(population.df1)
You can make it obvious what the R output is by default:
a <- 5 + 3
a
## [1] 8
Or you can remove the (slightly odd) comments on output:
#+ comment=""
b <- 4 + 4
b
[1] 8
Or you can run code directly inside your text by using:
#' What is b - a? `r b - a`.
What is b - a? 0.
See at https://rmarkdown.rstudio.com/docs/articles/rmarkdown.html#cheatsheets or on Moodle for a cheatsheet and reference document with further options.