# NOT RUN {
folder <- system.file("extdata/shimadzu", package = "eemR")
eem <- eem_read(folder, import_function = "shimadzu")
eem <- eem_set_wavelengths(eem, ex = seq(230, 450, by = 5))
plot(eem)
# }
Run the code above in your browser using DataLab