blockMeans.single <- function(x, n = 600) { means <- colMeans(stats::na.omit(matrix(x, nrow = n))) if (length(x) %% n != 0) { means <- means[-length(means)] } return(means) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.