# NOT RUN {
# }
# NOT RUN {
vignette ("baseline", package = "hyperSpec")
# }
# NOT RUN {
spc <- chondro [1 : 10]
baselines <- spc.fit.poly(spc [,, c (625 ~ 640, 1785 ~ 1800)], spc)
plot(spc - baselines)
baselines <- spc.fit.poly.below (spc)
plot (spc - baselines)
# }
Run the code above in your browser using DataLab