a <- untb(start=rep(1,100),prob=0.005,gens=5000,keep=FALSE)
preston(a)
no.of.spp(a)
display.untb(start=rep(1,100),prob=0.1,gens=1000)
data(butterflies)
abundance.curve(butterflies,show=TRUE)
Run the code above in your browser using DataCamp Workspace