## ----userguide, warning=FALSE-------------------------------------------------
library(ASICS)
ASICSUsersGuide(view = FALSE)

## ----data_import, results='hide'----------------------------------------------
current_path <- system.file("extdata", "example_spectra", package = "ASICS")
spectra_data <- importSpectraBruker(current_path)

## ----create_spectra, results='hide'-------------------------------------------
spectra_obj <- createSpectra(spectra_data)

## ----quantification-----------------------------------------------------------
to_exclude <- matrix(c(4.5, 10), ncol = 2)
resASICS <- ASICS(spectra_obj, exclusion.areas = to_exclude, verbose = FALSE)