Nothing
stat.plot <-
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
tem1 <- 2 * (2 * k - 1) * (k - 1)
tem2 <- 3 * k * n
se <- sqrt(tem1/tem2)
return(list(vr = vr, se = se))
}
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.