Nothing
#R
context('SSRC')
test_that("Example of table iv [PMID:15238601]", {
expect_equal(as.vector(sapply(c("SCHTAVGR", "SCHTGLGR", "EDLIAYLK"), ssrc)),
c(3.20805, 5.95145, 29.60045),
tolerance = 0.01)
})
test_that('iRT peptides', {
irtPeptide.ssrc <- c(7.33685 , 11.93745 , 29.22845 , 16.65045 , 20.58245 ,
27.03345 , 19.42845 , 22.32845 , 22.71845 , 36.67245 ,
25.31445 , 34.21845 , 38.108815 , 39.461215 , 40.516115 ,
40.488815 , 46.237915 , 41.876215 , 41.476515 , 46.025115 ,
7.33685 , 11.59745 , 16.65045 , 20.58245 , 19.42845 ,
22.32845 , 22.79845 , 25.57445 , 37.89545 , 40.488815 ,
46.111915)
expect_equal(as.vector(sapply(as.character(iRTpeptides$peptide), ssrc)),
irtPeptide.ssrc,
tolerance = 0.01)
})
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.