将光栅时间序列（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来获取栅格对象。