create predator functions

inbo · Apr 18, 2024 · d26546d · d26546d
1 parent b385413
commit d26546d
Showing 1 changed file with 40 additions and 0 deletions.
diff --git a/source/R/predatoren_f.R b/source/R/predatoren_f.R
@@ -0,0 +1,40 @@
+roofvogels_f <- function() {
+  roofvogels <- c(
+    "Blauwe Kiekendief",
+    "Boomvalk",
+    "Bosuil",
+    "Bruine Kiekendief",
+    "Buizerd",
+    "Grauwe Kiekendief",
+    "Havik",
+    "Ransuil",
+    "Rode Wouw",
+    "Slechtvalk",
+    "Smelleken",
+    "Sperwer",
+    "Steenuil",
+    "Steppekiekendief",
+    "Torenvalk",
+    "Vale Gier",
+    "Velduil",
+    "Wespendief",
+    "Zwarte Wouw")
+
+  return(roofvogels)
+}
+
+kraaiachtigen_f <- function() {
+  kraaiachtigen <- c(
+    "Ekster",
+    "Gaai",
+    "Kauw",
+    "Raaf",
+    "Roek",
+    "Zwarte Kraai")
+
+  return(kraaiachtigen)
+}
+
+predatoren_f <- function() {
+  return(c(roofvogels, kraaiachtigen))
+}