For the questions on this page, report the proportion of simulations that led to population extinction for each value of r$=2\mathrm{.}0,2\mathrm{.}2,2\mathrm{.}4,2\mathrm{.}6,2\mathrm{.}8$ using this original script Simulate$<-$function$($r$=2,$ K$=50,$ No$=10,$ var$=0\mathrm{.}01)\{$

Time$<-0$:$30$; Nstochastic$<-$numeric$(31)$; Ndeterministic$<-$numeric$(31)$

N$<-$No

for $($i in $1$:$31)\{$

Nstochastic$[$i$]<-$N

N$<-$round$($N $+$ r $*$N$*(1-($N$/$K$))+$ rnorm$(1,0,$var$*$N$))$

if$($N$<0)$ N$<-0$

$\}$

N$<-$No

for $($i in $1$:$31)\{$

Ndeterministic$[$i$]<-$N; N$<-($N $+$ r$*$N$*(1-($N$/$K$)))$

$\}$

plot$($Time$,$Nstochastic,ylim$=$c$(0,80),$xlim$=$c$(0,50),$col$=$"red"$)$

lines$($Time$,$Nstochastic,col$=$"red",ylab$="$Nt$")$

points$($Time$,$Ndeterministic,cex$=0\mathrm{.}5)$

lines$($Time$,$Ndeterministic$)$

text$(31,$Ndeterministic$[31],$col$=$"black",pos$=4,$cex$=0\mathrm{.}8,$

paste$("$Predicted N$","=",$ round$($Ndeterministic$[31],1))$

$)$

print$("$Predicted N:$")$

print$($Ndeterministic$[31])$

if $($Nstochastic$[31]>0)\{$

text$(31,$Ndeterministic$[31]-8,$paste$("$Stochastic N$","=",$ Nstochastic$[31]),$

col$=$"red",pos$=4,$cex$=0\mathrm{.}8)$

print$("$Stochastic N:$")$

print$($Nstochastic$[31])$

$\}$

else $\{$text$(31,$Ndeterministic$[31]-8,$"EXTINCTION!!!",col$=$"red",pos$=4,$cex$=0\mathrm{.}8)\}$

$\}$

Simulate$($r$=1\mathrm{.}6,$ K$=50,$ No$=10,$ var$=0\mathrm{.}05)$