Definește măsuri agregate
Acum vei defini măsuri de performanță.
Setul de date knowledge_train_data a fost deja încărcat, la fel și pachetele mlr și tidyverse. De asemenea, a fost rulat și următorul cod:
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)
Acest exercițiu face parte din cursul
Ajustarea hiperparametrilor în R
Instrucțiuni pentru exercițiu
- Folosește funcția
setAggregation, care agregează deviația standard a metricilor de performanță. - Aplică
setAggregationpentru eroarea medie de clasificare greșită și acuratețea după reesantionare. - Optimizează modelul folosind eroarea medie de clasificare greșită. Reține că primul argument este cel folosit pentru optimizare.
Exercițiu interactiv practic
Încearcă acest exercițiu completând acest cod de exemplu.
# 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)))