filterMonoMass <- function(monoMass, lowerLimit=0, upperLimit=4000){
if((monoMass >= lowerLimit) & (monoMass <= upperLimit))
return(monoMass)
}
convertNeutralMass <- function(mz, z){
neutralMass <- (mz-1.00794)*z
return(neutralMass)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.