Merge pull request #45 from vianneydenis/monkey

Loop updated
vianneydenis · Oct 23, 2023 · 0d5deac · 0d5deac
2 parents 6747753 + 0438ac1
commit 0d5deac
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 1 deletion.
diff --git a/df4810487c8a45838b57b12f305a2529def7225f/Figures/Lotka.png b/df4810487c8a45838b57b12f305a2529def7225f/Figures/Lotka.png
diff --git a/df4810487c8a45838b57b12f305a2529def7225f/Logi_G.R b/df4810487c8a45838b57b12f305a2529def7225f/Logi_G.R
@@ -0,0 +1,26 @@
+# Logistic growth
+
+grow <- function (growth.rate, num_gen) {
+  N <- rep (0,num_gen)
+  generation=rep(0,num_gen)
+  generation[1]=1
+  N[1] <- 10
+  for (i in 2:num_gen) {
+    N[i]= N[i-1]+(growth.rate * N[i-1] * ((100-
+                                             N[i-1])/100))
+    generation [i]=i
+  }
+  plot(N~generation, type='b')
+}
+grow (0.1,50)
+grow (0.5,50)
+grow (1.3,50)
+grow (2.52,50)
+grow (3,50)
+
+saveGIF({
+  for (i in 1:length(seq(0.1,3, 0.1))){
+    a<-seq(0.1,3, 0.1)[i]
+    grow(a,50)
+  }
+}, interval = 0.3, ani.width = 950, ani.height = 550)
diff --git a/df4810487c8a45838b57b12f305a2529def7225f/loop.Rmd b/df4810487c8a45838b57b12f305a2529def7225f/loop.Rmd
@@ -312,5 +312,6 @@ grow(1,2)
 text(6,110,"Both Species competing")
 ```
 
+![](Figures/Lotka.png)
 
 
diff --git a/df4810487c8a45838b57b12f305a2529def7225f/loop.html b/df4810487c8a45838b57b12f305a2529def7225f/loop.html
Original file line number	Diff line number	Diff line change
Expand Up		@@ -312,5 +312,6 @@ grow(1,2)
		text(6,110,"Both Species competing")
		```

		![](Figures/Lotka.png)