ComenzarEmpieza gratis

Define medidas agregadas

Ahora vas a definir medidas de rendimiento. El conjunto de datos knowledge_train_data ya se ha cargado por ti, al igual que los paquetes mlr y tidyverse. Además, ya se ha ejecutado el siguiente código:

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)

Este ejercicio forma parte del curso

Ajuste de hiperparámetros en R

Ver curso

Instrucciones del ejercicio

  • Usa la función setAggregation, que agrega la desviación estándar de las métricas de rendimiento.
  • Aplica setAggregation al error medio de clasificación y a la accuracy tras el remuestreo.
  • Optimiza tu modelo por el error medio de clasificación. Recuerda que el primer argumento se usa para la optimización.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# 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)))
Editar y ejecutar código