# NOT RUN {
r <- 2.5; K <- 1000.0; N0 <- 50; Ct <- 0.0; yrs <- 50; p <- 1
pop <- discretelogistic(r=r,K=K,N0=N0,Ct=Ct,Yrs=yrs,p=p)
plot(pop,main=paste0("r=",r," K=",K," Ct=",Ct, " N0=",N0,
" p=",p),cex=0.85,font=7)
# }
Run the code above in your browser using DataLab