###################################################
### code chunk number 4: fakepopdata
###################################################
x[1] <- init
for (t in 2:nYr) {
x[t] <- x[t - 1] + sim.u + rnorm(1, mean = 0, sd = sqrt(sim.Q))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.