scripts/ChinaHW_cluster/test-apply_3d.R

In CUG-hydro/heatwave: What the Package Does (One Line, Title Case)

library(matrixStats)
library(Ipaper)

set.seed(1)
n = 100
nyear = 40
arr = array(rnorm(n*n*nyear*12), dim = c(n, n, nyear*12))
obj.size(arr)

system.time({
    res = apply_3d(x, by = rep(1:nyear, each = 12))
})
# dim(res)