Definiera aggregerade mått
Nu ska du definiera prestandamått.
Datamängden knowledge_train_data har redan laddats in åt dig, liksom paketen mlr och tidyverse. Följande kod har också körts:
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)
Den här övningen är en del av kursen
Hyperparameterjustering i R
Övningsinstruktioner
- Använd funktionen
setAggregation, som aggregerar standardavvikelsen för prestandamått. - Tillämpa
setAggregationpå medelfelklassificering och noggrannhet efter resampling. - Optimera din modell med hjälp av medelfelklassificering. Kom ihåg att det första argumentet används vid optimering.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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)))