if (sits_run_examples()) {
# find best learning rate parameters for TempCNN
tuned <- sits_tuning(
samples_modis_ndvi,
ml_method = sits_tempcnn(),
params = sits_tuning_hparams(
optimizer = choice(
torch::optim_adamw
),
opt_hparams = list(
lr = loguniform(10^-2, 10^-4)
)
),
trials = 4,
multicores = 2,
progress = FALSE
)
# obtain best accuracy, kappa and best_lr
accuracy <- tuned$accuracy[[1]]
kappa <- tuned$kappa[[1]]
best_lr <- tuned$opt_hparams[[1]]$lr
}
Run the code above in your browser using DataLab