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