Nothing
arr = rnorm(5*5*10) %>% array(dim = c(5, 5, 10))
r = movmean_R(arr, 1) %>% array_3dTo2d()
# only suit for 2d array
mat = array_3dTo2d(arr)
r2 = movmean2_mat(mat, 1, 1)
max(rowMeans2(abs(r - r2))) < 1e-5
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.