x <- array(1:24, 2:4,
list(axis1 = letters[1:2],
axis2 = letters[1:3],
axis3 = letters[1:4]))
apply(x, 2:3, sum)
apply(as_dibble(x), 2:3, sum)
apply(x, c("axis2", "axis3"), sum)
apply(as_dibble(x), c("axis2", "axis3"), sum)
Run the code above in your browser using DataLab