data("NIRcannabis")
skips <- c(10, 25, 37)
simple_model <- calibrate(CBDA ~ spc,
data = NIRcannabis, preprocess = preprocess_recipe(),
method = fit_plsr(5), control = calibration_control("kfold"),
skips = skips, verbose = FALSE
)
# Predict the skipped indices
pred <- predict(simple_model,
newdata = NIRcannabis[skips, ],
ncomp = simple_model$final_ncomp,
verbose = FALSE
)
# Validate skipped indices
validate_prediction(pred, NIRcannabis$CBDA[skips])
Run the code above in your browser using DataLab