Nothing
topIons <-
function(mz, intensity, top){
if(length(mz)!=length(intensity)) stop("Wrong Spectrum! num of mz and intensity should be equal");
if(length(mz) < top) top=length(mz);
y=sort(intensity, decreasing=TRUE, index.return=TRUE);
intensity=y$x[1:top];
mz=mz[y$ix[1:top]];
cbind(sort(mz), intensity[order(mz)]);
}#>>>
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.