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
Instrucciones del ejercicio
- Usa la función
setAggregation, que agrega la desviación estándar de las métricas de rendimiento. - Aplica
setAggregational 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)))