if (checkForPackageWithVersion("ChemoSpec", 6.0)) {
library("ChemoSpec")
data(metMUD1)
sumSpectra(metMUD1)
newSpec <- conColScheme(metMUD1) # reports old colors
newSpec <- conColScheme(metMUD1, new = c("pink", "violet"))
}
if (checkForPackageWithVersion("ChemoSpec2D", 0.5)) {
library("ChemoSpec2D")
data(MUD1)
sumSpectra(MUD1)
newSpec <- conColScheme(MUD1) # reports old colors
newSpec <- conColScheme(MUD1, new = c("pink", "violet"))
}
Run the code above in your browser using DataLab