create predator function

inbo · Mar 25, 2024 · 3222620 · 3222620
1 parent 79cb8e2
commit 3222620
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/source/R/roofvogels_f.R b/source/R/roofvogels_f.R
@@ -0,0 +1,9 @@
+roofvogels_f <- function() {
+  roofvogels <- c("Blauwe Kiekendief", "Boomvalk", "Bruine Kiekendief",
+                  "Buizerd", "Grauwe Kiekendief", "Ransuil", "Rode Wouw",
+                  "Slechtvalk", "Smelleken", "Sperwer", "Steenuil",
+                  "Steppekiekendief", "Torenvalk", "Velduil", "Wespendief",
+                  "Zwarte Wouw")
+
+  return(roofvogels)
+}