set.seed(123)
ground_truth <- sample(0:1, 100, replace = TRUE)
predictions <- sample(0:1, 100, replace = TRUE)
FUN <- metric("acc")
perf_args <- list(
ground_truth = ground_truth,
predictions = predictions
)
metric_types_helper(
FUN = FUN,
y = ground_truth,
perf_args = perf_args
)
Run the code above in your browser using DataLab