Nothing
tupleFile = system.file("extdata", "tuple.xml.gz", package="aidar")
test_that("reading a tuple from file", {
t100 = getTuple(tupleFile, '100')
expect_equal( class(t100), "data.frame" )
expect_equal( typeof(t100), "list" )
expect_equal( names(t100) , c( "lin", "sin", "gauss", "flat" ) )
expect_equal( length(t100), 4 ) # nCol
expect_equal( length(t100$lin), 501 ) # nRow
expect_equal( mean(t100$sin) , 0.000437, tolerance = 1.E-3, scale = mean(t100$sin) )
expect_equal( mean(t100$gauss), 0.355 , tolerance = 1.E-3, scale = mean(t100$gauss) )
expect_equal( mean(t100$flat) , 24.8 , tolerance = 0.1 , scale = mean(t100$flat) )
expect_equal( max (t100$lin) , 500 )
})
test_that("getAnnotation", {
a100 = getAnnotation(tupleFile, '100')
expect_equal( length(a100), 2 )
expect_equal( a100$keys[[1]] , "Title" )
expect_equal( a100$values[[1]], "100" )
})
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.