Nothing
acfHKp <- function(H, maxlag) {
h2 <- 2*H
k <- 1:maxlag
c(1,0.5 * ((k + 1)^h2 - 2 * k^h2 + (k - 1)^h2))
}
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.