set.seed(100)
predictions <- (sample(1:100)%%2)
references <- (sample(1:100)%%2)
# \donttest{
trans <- get_transition_info(
predictions, references, 7
)
result <- spurious_curve(trans)
plot(result)
# }
Run the code above in your browser using DataLab