# \donttest{
# Attach packages
library(cvms)
# Create a list of hyperparameters
hparams <- list(
"kernel" = "radial",
"scale" = TRUE
)
# Update hyperparameters with defaults
# Only 'cost' is changed as it's missing
update_hyperparameters(
cost = 10,
kernel = "linear",
"scale" = FALSE,
hyperparameters = hparams
)
# 'cost' is required
# throws error
if (requireNamespace("xpectr", quietly = TRUE)){
xpectr::capture_side_effects(
update_hyperparameters(
kernel = "linear",
"scale" = FALSE,
hyperparameters = hparams,
.required = "cost"
)
)
}
# }
Run the code above in your browser using DataLab