library(casimir)
gold <- tibble::tribble(
~doc_id, ~label_id,
"A", "a",
"A", "b",
"A", "c",
"A", "d",
"A", "e",
)
pred <- tibble::tribble(
~doc_id, ~label_id, ~score,
"A", "f", 0.3277,
"A", "e", 0.32172,
"A", "b", 0.13517,
"A", "g", 0.10134,
"A", "h", 0.09152,
"A", "a", 0.07483,
"A", "i", 0.03649,
"A", "j", 0.03551,
"A", "k", 0.03397,
"A", "c", 0.03364
)
gold_vs_pred <- create_comparison(gold, pred)
compute_intermediate_results_rr(
gold_vs_pred,
rlang::syms(c("doc_id"))
)
Run the code above in your browser using DataLab