powered by
PopSim(Rs, N0, years = 50, sims = 10)
sparrows
lambdas <- runif(10, .5, 1.5) out <- PopSim(Rs=lambdas, years=50, N0=50) matplot(0:50, out, type='l') summary(out[51,])
Run the code above in your browser using DataLab