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
Istruzioni dell'esercizio
- Usa la funzione
setAggregation, che aggregherà la deviazione standard delle metriche di performance. - Applica
setAggregationall’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)))