Nothing
context("normalization")
test_that("normalization", {
a<-matrix(runif(100,1,10),10,10)
b<-data.Normalization(a,type="n4")
expect_equal(round(as.numeric(attr(b,"normalized:shift")[1]),2),round(min(a[,1]),2))
})
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.