# NOT RUN {
d <- c(4,16,32,32)
x <- array(rnorm(prod(d)), d)
z <- apply_time(x, function(v) {
y = matrix(NA, ncol=ncol(v), nrow=2)
y[1,] = (v[1,] + v[2,]) / 2
y[2,] = (v[3,] + v[4,]) / 2
y
})
dim(z)
# }
Run the code above in your browser using DataLab