if (FALSE) {
main_dir <- "/path/to/main_dir"
questioned_docs <- "/path/to/questioned_images"
analysis <- analyze_questioned_documents(
main_dir = main_dir,
questioned_docs = questioned_docs,
model = model,
num_cores = 2,
writer_indices = c(2, 5),
doc_indices = c(7, 18)
)
analysis$posterior_probabilities
}
Run the code above in your browser using DataLab