Nothing
#R
# $HeadURL$
# $Id$
# $Date$
test_cdsw <-
function(){
peptideStd.specLSet <- genSwathIonLib(data=peptideStd, data.fit=peptideStd.redundant)
checkEqualsNumeric(sum(cdsw(peptideStd, plot = FALSE)$to == cdsw(peptideStd.specLSet, plot = FALSE)$to), 20, tolerance = 0.0)
checkEqualsNumeric(sum(cdsw(peptideStd, plot = FALSE)$count == cdsw(peptideStd.specLSet, plot = FALSE)$count), 20, tolerance = 0.0)
}
test_cdsw()
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.