Kom igångKom igång gratis

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

Visa kurs

Övningsinstruktioner

  • Använd funktionen setAggregation, som aggregerar standardavvikelsen för prestandamått.
  • Tillämpa setAggregationmedelfelklassificering 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)))
Redigera och kör kod