Définir des mesures agrégées
Vous allez maintenant définir des mesures de performance.
Le jeu de données knowledge_train_data est déjà chargé, tout comme les packages mlr et tidyverse. Le code suivant a également été exécuté :
task <- makeClassifTask(data = knowledge_train_data,
target = "UNS")
lrn <- makeLearner(cl = "classif.nnet", fix.factors.prediction = TRUE)
param_set <- makeParamSet(
makeIntegerParam("size", lower = 1, upper = 5),
makeIntegerParam("maxit", lower = 1, upper = 300),
makeNumericParam("decay", lower = 0.0001, upper = 1)
)
ctrl_random <- makeTuneControlRandom(maxit = 10)
Cet exercice fait partie du cours
Optimisation des hyperparamètres en R
Instructions
- Utilisez la fonction
setAggregation, qui agrège l’écart type des métriques de performance. - Appliquez
setAggregationà l’erreur de classification moyenne et à la précision après rééchantillonnage. - Optimisez votre modèle par l’erreur de classification moyenne. Rappelez-vous que le premier argument est utilisé pour l’optimisation.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
# Create holdout sampling
holdout <- makeResampleDesc("Holdout", predict = "both")
# Perform tuning
lrn_tune <- tuneParams(learner = lrn,
task = task,
resampling = holdout,
control = ctrl_random,
par.set = param_set,
measures = list(___, ___(___, train.mean), ___, ___(___, train.mean)))