Nothing
test_rowMAD <- function(){
x <- matrix(rnorm(100), 10, 10)
result1 <- apply(x, 1, mad)
result2 <- rowMAD(x)
checkIdentical(result1, result2)
}
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.