# \donttest{
data("NIRcannabis")
control <- calibration_control(
validation_type = "kfold", number = 3, folds = "sequential"
)
recipe <- preprocess_recipe(
prep_resample(grid = "proxiscout"),
prep_snv(),
prep_derivative(m = 1, w = 11, p = 2, algorithm = "savitzky-golay"),
device = "proxiscout"
)
model <- calibrate(
THCA ~ spc,
data = NIRcannabis, preprocess = recipe,
method = fit_plsr(10), control = control, verbose = FALSE
)
json_model <- proxiscout_write_model(model)
json_model
proxiscout_write_model(model, file = file.path(tempdir(), "my_model.json"))
# }
Run the code above in your browser using DataLab