diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
index 86be1ec5..a1651db2 100644
--- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
+++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
@@ -1754,20 +1754,3 @@ main <- function() {
   })
 }
 main()
-
-# For generate_scatter_plot()
-# # Add rectangles if specified
-# if (!is.null(config$rectangles)) {
-#   for (rect in config$rectangles) {
-#     plot <- plot + annotate(
-#       "rect",
-#       xmin = rect$xmin,
-#       xmax = rect$xmax,
-#       ymin = rect$ymin,
-#       ymax = rect$ymax,
-#       fill = ifelse(is.null(rect$fill), NA, rect$fill),
-#       color = ifelse(is.null(rect$color), "black", rect$color),
-#       alpha = ifelse(is.null(rect$alpha), 0.1, rect$alpha)
-#     )
-#   }
-# }
\ No newline at end of file