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