Nothing
Wald1 <-
function(y,k)
{
y <- as.matrix(y)
n <- nrow(y)
m <- mean(y)
vr1 <- sum( (y-m)^2 )/n
# use the filter function
flt = filter(y, rep(1,k), method = "convolution")
flt = flt[!is.na(flt)]
summ = sum((flt - k * m)^2)
vr2 <- summ/(n*k)
vr <- vr2/vr1 -1
return(vr)
}
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.