if (requireNamespace("keras3", quietly = TRUE)) {
# Register a custom version of Adam with a different default beta_1
my_adam <- purrr::partial(keras3::optimizer_adam, beta_1 = 0.8)
register_keras_optimizer("my_adam", my_adam)
# Now "my_adam" can be used as a string in a model spec, e.g.,
# my_model_spec(compile_optimizer = "my_adam")
}
Run the code above in your browser using DataLab