data("NIRcannabis")
X <- NIRcannabis$spc
# User-defined grid (proximate)
rs <- prep_resample(grid = c(1001, 1700, 2))
recipe <- preprocess_recipe(rs, device = "proximate")
X_rs <- process(X, recipe)
Run the code above in your browser using DataLab