R - Vermeidung von for-Schleifen basierend auf Matrixindizes

Question

Ich mag würde wissen, ob es möglich ist, den folgenden Trick vermeiden for Schleifen apply mit smoehow vielleicht zu tun, aber ich weiß nicht, wie mit den 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] 
    } 
} 

in diesem Fall zu tun

Answer 1

Wenn Sie eine einfache Verzögerungsfunktion möchten, ist dies eine, die für data.tables und Datenrahmen funktioniert. Ich bin sicher, dass Sie bearbeiten können, um mit Matrizen zu arbeiten.

#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)))) 
}