Remove Samples from a Spectra or Spectra2D Object
removeSample(spectra, rem.sam)
This function will report if extra data elements are found. These will probably need to be edited manually. The indices reported to the console can be helpful in this regard.
If rem.sam is a character vector, the sample
names are grepped for the corresponding values. Remember that the
grepping process is greedy, i.e. grepping for "XY" find not only "XY" but
also "XYZ".
Bryan A. Hanson, DePauw University.
if (checkForPackageWithVersion("ChemoSpec", "5.1")) {
library("ChemoSpec")
data(SrE.IR)
# Remove the 9th spectrum/sample:
SrE.IR$names
SrE.IRa <- removeSample(SrE.IR, rem.sam = 9)
SrE.IRa$names
# Removes a spectrum/sample with this exact name:
SrE.IRb <- removeSample(SrE.IR, rem.sam = "NW_adSrE")
SrE.IRb$names
}
if (checkForPackageWithVersion("ChemoSpec2D", "0.3")) {
library("ChemoSpec2D")
data(MUD1)
# Removes the 5th spectrum:
MUD1$names
MUD1a <- removeSample(MUD1, rem.sam = 5)
MUD1a$names
# Removes a spectrum/sample with this exact name:
MUD1$names
MUD1b <- removeSample(MUD1, rem.sam = "Ether_3")
MUD1b$names
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.