IniziaInizia gratis

Definisci misure aggregate

Ora andrai a definire delle misure di performance. Il dataset knowledge_train_data è già stato caricato per te, così come i pacchetti mlr e tidyverse. Inoltre, è già stato eseguito il seguente codice:

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)

Questo esercizio fa parte del corso

Ottimizzazione degli iperparametri in R

Visualizza il corso

Istruzioni dell'esercizio

  • Usa la funzione setAggregation, che aggregherà la deviazione standard delle metriche di performance.
  • Applica setAggregation all’errore medio di misclassificazione e all’accuratezza dopo il resampling.
  • Ottimizza il modello in base all’errore medio di misclassificazione. Ricorda che il primo argomento viene usato per l’ottimizzazione.

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

# 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)))
Modifica ed esegui il codice