diff --git a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
index c776f5629ca4eb8fb9e79644a46eb9a40ca54955..3d75b533c7fd4b4b1e6e0c5cd7d87d4e0904cebf 100644
--- a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
+++ b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
@@ -79,7 +79,7 @@ library(dplyr)
 data_used <- list()
 for (i in 1:nrow(inputs)){ 
   row_filepath <- file.path(here::here(), 'experiments',inputs$Data_type[i], inputs$Facility_name_YYYY_month[i], "metadata_tables", inputs$Metadata_file[i]) 
-  data_used[[i]] <- read.csv(row_filepath) %>% filter(SubjectID == inputs$SubjectID[i]) # read table and filter subject
+  data_used[[i]] <- read.csv(row_filepath) %>% filter(Subject_ID == inputs$Subject_ID[i]) # read table and filter subject
 }
 
 # Gather list elements in a table