diff --git a/analysis_data/scratch.R b/analysis_data/scratch.R
index c5bebd5..3348bd5 100644
--- a/analysis_data/scratch.R
+++ b/analysis_data/scratch.R
@@ -4,12 +4,11 @@ main_df <- read.csv(main_csv, header = TRUE)
 
 bz_summary <- main_df |>
   mutate(isBz = if_else(
-    AuthorPHID == "PHID-USER-ynivjflmc2dcl6w5ut5v", TRUE, FALSE
+    AuthorPHID == "PHID-USER-idceizaw6elwiwm5xshb", TRUE, FALSE
   )) |>
-  group_by(source, comment_type)|>
+  group_by(source, comment_type, isBz)|>
   summarise(count = n(), .groups = 'drop')
   
-  
 
 needs_triage <- dsl_df |>
   filter(week_index >= -4) |>
diff --git a/mgaughan-rstudio-server_31867859.out b/mgaughan-rstudio-server_31867859.out
deleted file mode 100644
index 2c46688..0000000
--- a/mgaughan-rstudio-server_31867859.out
+++ /dev/null
@@ -1,17 +0,0 @@
-1. SSH tunnel from your workstation using the following command:
-
-   ssh -N -L 8787:n3441:34063 mjilg@klone.hyak.uw.edu
-
-   and point your web browser to http://localhost:8787
-
-2. log in to RStudio Server using the following credentials:
-
-   user: mjilg
-   password: mGALb8Ae1rRJIi4jmNUf
-
-When done using RStudio Server, terminate the job by:
-
-1. Exit the RStudio Session ("power" button in the top right corner of the RStudio window)
-2. Issue the following command on the login node:
-
-      scancel -f 31867859