View source: R/plotMsSpectrum.R
1 | plotMsSpectrum(x, i)
|
x |
MassSpectrm slot of S4 class parse.Shimadzu. |
i |
series number of peaks which you want to plot |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (x, i)
{
no <- x[[i]]$a[[2]]
no <- gsub("# of Peaks", "Number of Peaks = ", no)
y <- data.frame(x[[i]]$b)
colnames(y) <- c("mass", "absolute", "relative")
plot(as.character(y$mass), as.character(y$relative), type = "h",
xlab = "Mass/Charge", ylab = "Relative Intensity", col = ifelse(y$relative ==
"100.00", "red", "black"), main = no)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.