R - Ben belki smoehow <code>apply</code> kullanılarak <code>for</code> döngüler kaçınarak şu hile yapmak mümkün olup olmadığını bilmek istiyorum

Question

matris endeksleri dayanan döngüler için kaçınmak, ama bu 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] 
    } 
} 

ile bu durumda nasıl bilmiyorum

Answer 1

Basit bir gecikme işlevi istiyorsanız, data.tables ve data frame için çalışıyor. Matrislerle çalışmak için düzenleyebileceğinizden eminim.

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