AverageScan: function to extract average mass/charge and intensity value...
In HTDA: HTDA (High Throughput Data Analysis)

Description Usage Arguments Value Examples

Return mass/charge ration, intensity for the given peak

1	lapply(Sample1@MassSpectrum, AverageScan)

`x`	All Mass Spectrum

Return a list of average mass/charge ration and relative intensity for e very scan

##---- 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) 
{
    y <- data.frame(x$b)
    colnames(y) <- c("mass", "absolute", "relative")
    aveMZ <- mean(as.numeric(as.character(y$mass)))
    aveAbs <- mean(as.numeric(as.character(y$absolute)))
    aveRel <- mean(as.numeric(as.character(y$relative)))
    averageSpectrum <- data.frame(MZ = aveMZ, Absolute = aveAbs, 
        Relative = aveRel)
    return(averageSpectrum)
  }