## ----userguide----------------------------------------------------------- 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)