# Open the fluorescence eem
file <- system.file("extdata/cary/eem/", "sample1.csv", package = "eemR")
eem <- eem_read(file)
plot(eem)
# Open the blank eem
file <- system.file("extdata/cary/", "nano.csv", package = "eemR")
blank <- eem_read(file)
# Do the normalisation
eem <- eem_raman_normalisation(eem, blank)
plot(eem)Run the code above in your browser using DataLab