diff --git a/02_OBSERVATIONAL/OBSERVATIONAL_03_QC_02_merging_observational_and_inventory_data_integrity.R b/02_OBSERVATIONAL/OBSERVATIONAL_03_QC_02_merging_observational_and_inventory_data_integrity.R
index 99ea1aa7ef5c1c9ef6e4573fa22e37cf8480ce6f..39d1d538515fae1aa4c988fc7039eeb8f241fc70 100644
--- a/02_OBSERVATIONAL/OBSERVATIONAL_03_QC_02_merging_observational_and_inventory_data_integrity.R
+++ b/02_OBSERVATIONAL/OBSERVATIONAL_03_QC_02_merging_observational_and_inventory_data_integrity.R
@@ -198,7 +198,7 @@ OBSERVATIONAL_OUT_03_QC_02_FILENAME         <- paste0("OBSERVATIONAL_OUT_03_QC_0
                                                       paste(unique(dat_observational_inventory_demographics_fulljoin$country), collapse = "-"), 
                                                       "_timestamp-", 
                                                       strftime(Sys.time(), format = "%Y%m%d_%H%M%S"), 
-                                                      ".pdf")
+                                                      ".csv")
 
 # Name of output graph files
 OBSERVATIONAL_OUT_03_QC_02_PLOTNAME_SEX_01  <- paste0("OBSERVATIONAL_OUT_03_QC_02_SEX_PLOT_01",