## Example 1
# 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)
plot(blank)
# Remove the blank
eem <- eem_remove_blank(eem, blank)
plot(eem)
## Example 2
# Open the fluorescence eem
folder <- system.file("extdata/cary/eem/", package = "eemR")
eem <- eem_read(folder)
plot(eem, which = 3)
# Open the blank eem
file <- system.file("extdata/cary/", "nano.csv", package = "eemR")
blank <- eem_read(file)
plot(blank)
# Remove the blank
eem <- eem_remove_blank(eem, blank)
plot(eem, which = 3)Run the code above in your browser using DataLab