folder <- system.file("extdata/cary/eem", package = "eemR")
eems <- eem_read(folder)
eem_extract(eems, c(1, 3)) ## Removes samples 1 and 3
eem_extract(eems, c(1, 3), remove = TRUE) ## extract samples 1 and 3
## Remove all samples containing "3" in their names.
eem_extract(eems, "3")
## Remove all samples containing either character "s" or character "2" in their names.
eem_extract(eems, c("s", "2"))
## Remove all samples containing "blank" or "nano"
eem_extract(eems, c("blank", "nano"))
## Remove all samples starting with "no"
eem_extract(eems, "^no")Run the code above in your browser using DataLab