bartlett.se <- function(r, n) { sum.r2 <- sqrt((1 + 2 * c(0, cumsum((r[wqm.Uminus(length(r))])^2)))/n) return(sum.r2) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.