diff --git a/code/cwz_2023.R b/code/archive_or_old_related_scripts/cwz_2023.R
similarity index 100%
rename from code/cwz_2023.R
rename to code/archive_or_old_related_scripts/cwz_2023.R
diff --git a/code/cwz_biz_cd.Rmd b/code/archive_or_old_related_scripts/cwz_biz_cd.Rmd
similarity index 100%
rename from code/cwz_biz_cd.Rmd
rename to code/archive_or_old_related_scripts/cwz_biz_cd.Rmd
diff --git a/code/overflowing_litter_baskets.Rmd b/code/archive_or_old_related_scripts/overflowing_litter_baskets.Rmd
similarity index 100%
rename from code/overflowing_litter_baskets.Rmd
rename to code/archive_or_old_related_scripts/overflowing_litter_baskets.Rmd
diff --git a/code/biz_dsny_complaints_2023.R b/code/dsny_biz-complaints-violations_2023.R
similarity index 99%
rename from code/biz_dsny_complaints_2023.R
rename to code/dsny_biz-complaints-violations_2023.R
index 2a176f0..9ba5cd4 100644
--- a/code/biz_dsny_complaints_2023.R
+++ b/code/dsny_biz-complaints-violations_2023.R
@@ -177,6 +177,7 @@ badbz <- wdt[cmp_2_biz > 33, .(geometry, cmp_2_biz, n_cmp,
 bad_sts_bz <- st_intersection(dcm, badbz)
 mapview::mapview(bad_sts_bz, z="cmp_2_biz")
 
+# map biz complaints per biz ----------------------------------------------
 pal <-
   leaflet::colorQuantile(
     palette = pal_nycc("warm"),
diff --git a/code/litter_basket_complaints.R b/code/dsny_litter_basket_complaints.R
similarity index 100%
rename from code/litter_basket_complaints.R
rename to code/dsny_litter_basket_complaints.R