library(tidyverse)

neurobiber_csv <-"~/p2/071425_master_discussion_data.csv"
neurobiber_df <- read.csv(neurobiber_csv , header = TRUE) 

unique_authors <- unique(neurobiber_df$AuthorPHID)
unique_authors_df <- neurobiber_df[!duplicated(neurobiber_df$AuthorPHID), ]
table(unique_authors_df$AuthorWMFAffil)

task_description_unique_authors <- unique_authors_df |>
  filter(comment_type == "task_description")
table(task_description_unique_authors$AuthorWMFAffil)