将栅格时间序列 (rts) 对象强制转换回栅格*对象

Question

看起来应该直截了当，但没有找到方法。如何将 rts 栅格时间序列强制回栅格（堆栈）？

以下示例来自 rts 包。

library(raster)
library(rts)
path <- system.file("external", package="rts")
lst <- list.files(path=path,pattern='.asc$',full.names=TRUE)
r <- stack(lst)
d <- c("2000-02-01","2000-03-01","2000-04-01","2000-05-01") # corresponding dates to 4 rasters
d <- as.Date(d)

# creating a RasterStackTS object:
rt <- rts(r,d)

Answer 1

在 rts 中，光栅对象保存在插槽@raster 中，因此，您可以简单地使用rt@raster 获取光栅对象。