# NOT RUN {
# }
# NOT RUN {
data("population_magpie")
magpply(population_magpie,FUN=sum,MARGIN=2)
fourdim<-population_magpie*setNames(population_magpie,c("jkk","lk"))
magpply(fourdim,FUN=sum,MARGIN=c(1,3.1))
magpply(fourdim,FUN=function(x){return(x+1)},MARGIN=c(1,3.1),integrate=TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab