加速R聚焦函数

我正在运行R中的焦点函数，计算移动窗口中的模式。这是在单元大小为56m的大型光栅上运行的（请参见下面的详细信息）

当使用较小的窗口尺寸（如29或15倍）时，这种方法非常有效，请参见下文。这些工作大约在48小时后完成

29xFocal <- focal(
  myRasterInput,
  w=matrix(1,nrow=29,ncol=29),
  fun=modal
  )


15xFocal <- focal(
  myRasterInput,
  w=matrix(1,nrow=15,ncol=15),
  fun=modal
  )

29xFocal
29xFocal <- focal(
  myRasterInput,
  w=matrix(1,nrow=29,ncol=29),
  fun=modal
  )


15xFocal <- focal(
  myRasterInput,
  w=matrix(1,nrow=15,ncol=15),
  fun=modal
  )