#' @keywords internal getFittedValues <- function(object) UseMethod("getFittedValues")
getFittedProbs(object)