predictions <- (sample(1:100)%%2)
references <- (sample(1:100)%%2)
window_size <- 7
if (isTRUE(requireNamespace("matchingMarkets", quietly = TRUE))){
transitions <- get_transition_info(
predictions, references, window_size
)
plot(transitions)
}
Run the code above in your browser using DataLab