r - 基本的な R ラスター操作を並行して実行する方法は?

Question

これらのサンプル ラスターがあります。

s <- stack(replicate(10, {raster(matrix(runif(2160*4320), 2160),
xmn=-180, xmx=180, ymn=-90, ymx=90)}))

s2 <- stack(replicate(10, {raster(matrix(runif(2160*4320), 2160), 
xmn=-180, xmx=180, ymn=-90, ymx=90)}))

r <- raster(nrow=3000, ncol=7200, ymn=-60, ymx=90) 
values(r) <- 1:ncell(r)

マルチコアを使用して、次のような R および Raster の基本機能を実行できるようにしたいと考えています。

s * s2
resample(s, r)