# \donttest{
data("NIRcannabis")
control <- calibration_control(validation_type = "kfold", number = 3, folds = "sequential")
amodel <- calibrate(CBDA ~ spc,
data = NIRcannabis, preprocess = preprocess_recipe(),
method = fit_plsr(5), control = control, verbose = FALSE
)
proximate_write_model(
object = list(amodel),
path = tempdir(),
tsv_paths = tempfile(fileext = ".tsv"),
application_name = "Untitled",
cal = TRUE, prj = TRUE, rtf = TRUE,
verbose = FALSE
)
# }
Run the code above in your browser using DataLab