data("NIRcannabis")
X <- NIRcannabis$spc
# SNV alone — no device needed (SNV is device-agnostic)
recipe_snv <- preprocess_recipe(prep_snv())
X_snv <- process(X, recipe_snv)
# Any other combination requires device
recipe <- preprocess_recipe(
prep_smooth(w = 7, p = 1, algorithm = "savitzky-golay"),
prep_snv(),
prep_derivative(m = 1, w = 5, p = 2, algorithm = "savitzky-golay"),
device = "proxiscout"
)
X_proc <- process(X, recipe)
attr(X_proc, "preprocess_recipe")
Run the code above in your browser using DataLab