diff --git a/df4810487c8a45838b57b12f305a2529def7225f/Figures/Lotka.png b/df4810487c8a45838b57b12f305a2529def7225f/Figures/Lotka.png
new file mode 100644
index 0000000..f69d052
Binary files /dev/null and b/df4810487c8a45838b57b12f305a2529def7225f/Figures/Lotka.png differ
diff --git a/df4810487c8a45838b57b12f305a2529def7225f/Logi_G.R b/df4810487c8a45838b57b12f305a2529def7225f/Logi_G.R
new file mode 100644
index 0000000..d502985
--- /dev/null
+++ 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
index 19ed58e..cd2ce66 100644
--- a/df4810487c8a45838b57b12f305a2529def7225f/loop.Rmd
+++ b/df4810487c8a45838b57b12f305a2529def7225f/loop.Rmd
@@ -312,5 +312,6 @@ grow(1,2)
text(6,110,"Both Species competing")
```
+
diff --git a/df4810487c8a45838b57b12f305a2529def7225f/loop.html b/df4810487c8a45838b57b12f305a2529def7225f/loop.html
index 5ac85f6..05475ec 100644
--- a/df4810487c8a45838b57b12f305a2529def7225f/loop.html
+++ b/df4810487c8a45838b57b12f305a2529def7225f/loop.html
@@ -2531,7 +2531,7 @@ Contents
Download loop.R
@@ -2819,6 +2819,7 @@
Perfection
text(6,110,"Both Species competing")
+