if (checkForPackageWithVersion("ChemoSpec", 6.0)) {
library("ChemoSpec")
data(SrE.IR)
sumGroups(SrE.IR)
SrE.IRa <- removeGroup(SrE.IR, rem.group = "pSrE")
sumGroups(SrE.IRa)
}
if (checkForPackageWithVersion("ChemoSpec2D", 0.5)) {
library("ChemoSpec2D")
data(MUD1)
sumGroups(MUD1)
MUD1a <- removeGroup(MUD1, rem.group = "Ether")
sumGroups(MUD1a)
}
Run the code above in your browser using DataLab