# NOT RUN {
m2 <- matrix(c(.5, .5, 0, 0, .5, .5, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), 4)
# Collapse into ranks 1, 2, and 3+4
collapse <- collapse_prediction(c(1, 2, 4))
collapsed_prediction <- collapse %*% m2
collapsed_prediction
# }
Run the code above in your browser using DataLab