BahlaiLab
diff --git a/‎figures/Hubbard_Brook.png
20 Bytes b/‎figures/Hubbard_Brook.png
20 Bytes
diff --git a/‎figures/Konza_Prairie.png
-863 Bytes b/‎figures/Konza_Prairie.png
-863 Bytes
diff --git a/‎figures/LTER_SITES.png
-942 Bytes b/‎figures/LTER_SITES.png
-942 Bytes
diff --git a/‎figures/North_Temperate_Lakes.png
-134 Bytes b/‎figures/North_Temperate_Lakes.png
-134 Bytes
diff --git a/‎figures/Santa_Barbara_Coastal.png
-423 Bytes b/‎figures/Santa_Barbara_Coastal.png
-423 Bytes
diff --git a/‎model_analyses.R
+2-11 b/‎model_analyses.R
+2-11
diff --git a/‎model_output/model_all_LTER_sites.csv
+12,862-12,862 b/‎model_output/model_all_LTER_sites.csv
+12,862-12,862
diff --git a/‎model_output/model_hubbard_brook.csv
+5,441-5,441 b/‎model_output/model_hubbard_brook.csv
+5,441-5,441
diff --git a/‎model_output/model_konza.csv
+4,684-4,684 b/‎model_output/model_konza.csv
+4,684-4,684
diff --git a/‎model_output/model_north_temperate_lakes.csv
+839-839 b/‎model_output/model_north_temperate_lakes.csv
+839-839
diff --git a/‎model_output/model_santa_barbara_coastal.csv
+1,901-1,901 b/‎model_output/model_santa_barbara_coastal.csv
+1,901-1,901
diff --git a/‎tritrophic_analysis.R
+80-40 b/‎tritrophic_analysis.R
+80-40
@@ -35,9 +35,8 @@ mod.lter$intercept_p_value <- round(mod.lter$intercept_p_value, digits = 10)
 str(mod.lter)
 mod.lter$trophic_level <- as.factor(mod.lter$trophic_level)
 levels(mod.lter$trophic_level)
-mod.lter$trophic_level <- factor(mod.lter$trophic_level,
-                                 levels = c("producer", "herbivore", "consumer", "predator"))
-levels(mod.lter$trophic_level)
+#mod.lter$trophic_level <- factor(mod.lter$trophic_level,
+#                                 levels = c("producer", "herbivore", "consumer", "predator"))
 mod.lter$N_years <- as.numeric(mod.lter$N_years)
 mod.lter$start_year <- as.numeric(mod.lter$start_year)
 
@@ -67,8 +66,6 @@ cols <- c("black", "red")
 str(mod.konza)
 mod.konza$trophic_level <- as.factor(mod.konza$trophic_level)
 levels(mod.konza$trophic_level)
-mod.konza$trophic_level <- factor(mod.konza$trophic_level, levels = c("producer", "herbivore", "consumer"))
-levels(mod.konza$trophic_level)
 mod.konza$N_years <- as.numeric(mod.konza$N_years)
 mod.konza$start_year <- as.numeric(mod.konza$start_year)
 
@@ -103,8 +100,6 @@ mod.hbrook$intercept_p_value <- round(mod.hbrook$intercept_p_value, digits = 10)
 str(mod.hbrook)
 mod.hbrook$trophic_level <- as.factor(mod.hbrook$trophic_level)
 levels(mod.hbrook$trophic_level)
-mod.hbrook$trophic_level <- factor(mod.hbrook$trophic_level, levels = c("producer", "herbivore", "consumer"))
-levels(mod.hbrook$trophic_level)
 mod.hbrook$N_years <- as.numeric(mod.hbrook$N_years)
 mod.hbrook$start_year <- as.numeric(mod.hbrook$start_year)
 
@@ -133,8 +128,6 @@ mod.ntlakes$intercept_p_value <- round(mod.ntlakes$intercept_p_value, digits = 1
 str(mod.ntlakes)
 mod.ntlakes$trophic_level <- as.factor(mod.ntlakes$trophic_level)
 levels(mod.ntlakes$trophic_level)
-mod.ntlakes$trophic_level <- factor(mod.ntlakes$trophic_level, levels = c("producer", "consumer", "predator"))
-levels(mod.ntlakes$trophic_level)
 mod.ntlakes$N_years <- as.numeric(mod.ntlakes$N_years)
 mod.ntlakes$start_year <- as.numeric(mod.ntlakes$start_year)
 
@@ -163,8 +156,6 @@ mod.sbcoastal$intercept_p_value <- round(mod.sbcoastal$intercept_p_value, digits
 str(mod.sbcoastal)
 mod.sbcoastal$trophic_level <- as.factor(mod.sbcoastal$trophic_level)
 levels(mod.sbcoastal$trophic_level)
-mod.sbcoastal$trophic_level <- factor(mod.sbcoastal$trophic_level, levels = c("producer", "consumer", "predator"))
-levels(mod.sbcoastal$trophic_level)
 mod.sbcoastal$N_years <- as.numeric(mod.sbcoastal$N_years)
 mod.sbcoastal$start_year <- as.numeric(mod.sbcoastal$start_year)