为什么聚合r非常慢？

Question

我在这里举一个例子，但是我的真实光栅很大，而且分辨率很高。

  r <- raster()
  # a new aggregated raster, no values
  r <- setValues(r, runif(ncell(r)))
  # a new aggregated raster, max of the values
  ra <- aggregate(r, fact=10, fun=max)

所以aggregate很慢。有没有办法使它更快，并行使用我拥有的尽可能多的内核？