powered by
spmbl(spectrum, lbl)
data(spData) # Convert data frame to matrix spectrum <- as.matrix(t(spData[, c("Wavenumber","A")])) # Linear baseline correction mbl <- spmbl(spectrum=spectrum, lbl=c(1800, 1540, 840))
Run the code above in your browser using DataLab