Error occurs when questioned documents folder contains multiple docs from the same writer

[stephaniereinders]

If the folder main_dir > data > questioned_docs contains more than one document from the same writer analyze_questioned_documents() produces an error. I started looking into the bug. The problem starts in the following lines of cluster_analysis.R:

qwriters <- unique(questioned_data$graph_measurements$writer)
  
  # list known writers
  kwriters <- unique(model$graph_measurements$writer)

  # obtain posterior samples of model parameters
  message("Obtaining likelihood evaluations...")
  likelihood_evals <- foreach::foreach(d = 1:nrow(questioned_data$cluster_fill_counts)) %dopar% { # d is document
    # filter docs for current writer
    qdoc2 <- questioned_data$graph_measurements %>% dplyr::filter(writer == qwriters[d])

If, for example, there are two questioned documents from the same writer, qwriters is a vector of length 1. Then in the second iteration of the foreach loop when d=2, qwriters[d] produces NA instead of the writer ID.