2016-06-28 64 views
0

我有一個柵格圖層堆棧s,有744個圖層。在這些中,我需要製造具有層18至24(即來自18的6層)的新疊層,然後在距18(即42至48)的24的間隙下接下來的6層。所以我需要繼續在24的間隙選擇6層,直到我到達堆棧的末端。所以我所做的是:從定義的時間間隔中選擇柵格堆棧圖層

x<-data.frame(seq(18, 744, by = 24)) 
x$v2<-seq(24, 744, by = 24) 
S1<-stack(s[[x[1,1]:x[1,2]]]) 
for(i in 2:nrow(x)){ 
    S1<-stack(S1,s[[x[i,1]:x[i,2]]]) 
} 

但是,我想知道是否有更清潔和更好的方法來做到這一點。

回答

1

你可以做

i <- rep(18:24, 31) + rep(0:30, each=7) * 24 
S2 <- S1[[i]]