library(casimir)
gold <- tibble::tribble(
~doc_id, ~label_id,
"A", "a",
"A", "b",
"A", "c",
"B", "a",
"B", "d",
"C", "a",
"C", "b",
"C", "d",
"C", "f"
)
pred <- tibble::tribble(
~doc_id, ~label_id, ~score,
"A", "a", 0.9,
"A", "d", 0.7,
"A", "f", 0.3,
"A", "c", 0.1,
"B", "a", 0.8,
"B", "e", 0.6,
"B", "d", 0.1,
"C", "f", 0.1,
"C", "c", 0.2,
"C", "e", 0.2
)
base_compare <- create_comparison(gold, pred)
res_0 <- apply_threshold(
threshold = 0.3,
base_compare = base_compare
)
Run the code above in your browser using DataLab