# NOT RUN {
cur_path <- system.file("extdata", "example_spectra", "AG_faq_Beck01",
package = "ASICS")
to_exclude <- matrix(c(4.5,5.1,5.5,6.5), ncol = 2, byrow = TRUE)
result <- ASICS(path = cur_path, exclusion.areas = to_exclude)
result
summary(result)
plot(result)
# }
Run the code above in your browser using DataLab