的R - 避免了基於矩陣指數環

Question

我想知道是否有可能做下面的技巧，避免也許使用smoehow applyfor循環，但我不知道如何在這種情況下，我與那max(i-4,1)

x <- matrix(seq_len(100),10,10) 
x[,1] <- letters[1:10] 
y <- x 
for (i in 1:nrow(x)) { 
    for (j in 2:ncol(x)) { 
    y[i,j] <- x[max(i-4,1),j] 
    } 
} 

Answer 1

如果你想要一個簡單的滯後函數，那麼這個函數適用於data.tables和數據框架。我確定你可以編輯使用矩陣。

#data table version 
lagging<- 
function (data, var, time) 
{ 
    return(c(rep(NA, time), head(data[, eval(as.name(var))], 
     (length(data[, eval(as.name(var))]) - time)))) 
} 

#data frame version 
lagging<- 
function (data, var, time) 
{ 
    return(c(rep(NA, time), head(data[, var], 
     (length(data[, var]) - time)))) 
}