Exclude reworked specimens

NiklasHohmann · Mar 1, 2024 · d3b803e · d3b803e
1 parent 11edb1c
commit d3b803e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/code/analysis.R b/code/analysis.R
@@ -4,6 +4,10 @@ cat("Running analysis, please wait...\n")
 cat("Loading data\n")
 messinian_db <- read.csv(file = "data/messinianDB.csv")
 
+#### Clean data ####
+remove_occ = grepl("Considered reworked", messinian_db$Notes, useBytes = TRUE) | grepl("Collected from deposits known as \"Livelli ad Aturia", messinian_db$Notes, useBytes = TRUE)
+messinian_db = messinian_db[!remove_occ,]
+
 #### Set seed ####
 set.seed(1)