Nothing
test_acf2 <- function(){
set.seed(123)
x <- rnorm(100)
lag.max <- 10
answer <- acf(x, lag.max=lag.max, plot=FALSE)[[1]][lag.max+1, , 1]
checkEquals(acf2(x), answer)
}
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.