CommencerCommencer gratuitement

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

Afficher le cours

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)))
Modifier et exécuter le code