# NOT RUN {
data(drugtarget)
mod <- tskrr(drugTargetInteraction, targetSim, drugSim,
lambda = c(0.01,0.01))
delta <- response(mod) - loo(mod, exclusion = "both")
resid <- residuals(mod, method = "loo", exclusion = "both")
all.equal(delta, resid)
# }
Run the code above in your browser using DataLab