# NOT RUN {
data(drugtarget)
mod <- tskrr(drugTargetInteraction, targetSim, drugSim)
tuned <- tune(mod, ngrid = 10)
is_tuned(mod)
is_tuned(tuned)
# Basic visualization of the grid.
gridvals <- get_grid(tuned)
z <- get_loss_values(tuned)
# }
# NOT RUN {
image(gridvals$k,gridvals$g,log(z), log = 'xy',
xlab = "lambda k", ylab = "lambda g")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab