## ----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)
pure_lib <- pure_library[getSampleName(pure_library) %in%
                         c("Lactate", "L-Alanine")]
resASICS <- ASICS(spectra_obj[1], exclusion.areas = to_exclude,
                   pure.library = pure_lib, verbose = FALSE)