Nothing
## function to perform unit test for getPeak
test_getPeak <- function() {
data(Targets)
checkException(getPeak(Targets = Targets, weight = 2/3, deltaRI = 20),
"When \"Run\" is not provided, the \"file.name\" is
required!")
data(Run)
checkException(getPeak(Run = Run, drt = 10/60, weight = 2/3, deltaRI = 20),
"When \"Target\" is not provided, \"target.file.name\" is
required!")
}
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.