setMethod("calculateFragments", c("character", "missing"),
function(sequence, type = c("b", "y"), z = 1,
modifications = c(C = 57.02146),
neutralLoss = defaultNeutralLoss(),
verbose = isMSnbaseVerbose()) {
l <- lapply(sequence, PSMatch:::.calculateFragments,
type = type, z = z, modifications = modifications,
neutralLoss = neutralLoss, verbose = verbose)
return(do.call(rbind, l))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.