data("NIRcannabis")
X <- NIRcannabis$spc
# Pure polynomial detrend
dt <- prep_detrend(p = 2)
recipe <- preprocess_recipe(dt, device = "unspecified")
X_dt <- process(X, recipe)
# Barnes et al. (1989): SNV followed by detrend
recipe_barnes <- preprocess_recipe(
prep_snv(), prep_detrend(p = 2),
device = "unspecified"
)
X_barnes <- process(X, recipe_barnes)
Run the code above in your browser using DataLab