# NOT RUN {
data(drugtarget)
## One dimensional tuning
tuned1d <- tune(drugTargetInteraction, targetSim, drugSim,
lim = c(1e-4,2), ngrid = 40,
fun = loss_auc, onedim = TRUE)
plot_grid(tuned1d)
plot_grid(tuned1d, lambdapars = list(col = "green",
lty = 1, lwd = 2),
log = FALSE, las = 2, main = "1D tuning")
## Two dimensional tuning
tuned2d <- tune(drugTargetInteraction, targetSim, drugSim,
lim = c(1e-4,10), ngrid = 20,
fun = loss_auc)
plot_grid(tuned2d)
# }
Run the code above in your browser using DataLab