plotAllMsSpectra: function for plotting all Mass Spectrum
In HTDA: HTDA (High Throughput Data Analysis)

Plot all Mass spectrum simultaneously and write them in a pdf file

1	lapply(x,plotAllMsSpectra)

`x`	MassSpectrm slot of S4 class parse.Shimadzu

##---- 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) 
{
    no <- x$a[[2]]
    no <- gsub("# of Peaks", "Number of Peaks = ", no)
    y <- data.frame(x$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)
  }