algorithmAttribute <- attr(challenge_multiple, "algorithm") totalNumberOfAlgorithms <- length(levels(attr(object$data, "missingData")[[1]][[algorithmAttribute]])) cat("The top ", length(levels(challenge_multiple[[1]][[attr(challenge_multiple, "algorithm")]])), " out of ", totalNumberOfAlgorithms, " algorithms are considered.\n")
- this will also appear if all algorithms are shown
- totalNumberOfAlgorithms does not count the number of algorithms but the number of replaced missing cases