move column correction factor

webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd

@@ -86,7 +86,7 @@ for (i in 1:nrow(inputs)){
 data_used <- do.call(rbind,data_used) 
 data_used$Subject_pubID <- inputs$Subject_pubID # Add additional input column 
 data_used$correction_factor <- inputs$Correction_factor # Add additional input column
-data_used <- relocate(data_used, correction_factor, .before = 7)
+data_used <- relocate(data_used, Correction_factor, .before = 7)
 
 # add the subject index for publication as first variable
 data_used <- relocate(data_used, Subject_pubID, .before = 1)