# pp.score calcule le taux de succès d'un classeur entraîné sur un jeu
# d'exemples (data, labels).

pp.score <- function (classeur, data, labels)
{
    stopifnot (is.factor (labels))
    stopifnot (is.data.frame (data))
    stopifnot (nrow (data) == length (labels))
    prédiction <- predict (classeur, data)
    étiquettes.prédites <- apply (prédiction, 1, function (ligne) return (levels(labels)[which.max (ligne)]))
    return (sum (étiquettes.prédites == labels) / nrow (data))
}