# NOT RUN {
data(drugtarget)
mod <- tskrr(drugTargetInteraction, targetSim, drugSim)
naid <- sample(length(drugTargetInteraction), 30)
drugTargetInteraction[naid] <- NA
impmod <- impute_tskrr(drugTargetInteraction, targetSim, drugSim)
has_imputed_values(mod)
has_imputed_values(impmod)
# For illustration: extract imputed values
id <- is_imputed(impmod)
fitted(impmod)[id]
# }
Run the code above in your browser using DataLab