Double for-loop не работает

Question

Я пытаюсь создать набор новых векторов на основе правила для списка векторов. Мой вход состоит из 3 нормальных векторов (index, rfree, ret) и список из нескольких векторов (roll), причем все векторы имеют одинаковую длину. Я хочу, чтобы новые векторы следовали правилу: если index> roll -> ret, else rfree, чтобы индекс оценивался против числа «k» векторов валиков, дающих «k» новые векторы, которые состоят только из входов ret и rfree , Моя текущая программа не работает, и я не могу понять, почему. Сообщение об ошибке, которое я получаю, это

"Error in `*tmp*`[[j]] : subscript out of bounds" 

Но я не могу понять, почему. Любая помощь приветствуется.

#Input: 
roll <- list(runif(85),runif(85)) 
index <- runif(85) 
rfree <- rnorm(85) 
ret <- rnorm(85) 

#Programe: 
aret <- function(index, roll, ret, rfree, k=2){ 
    aret <- list() 
    for (j in seq(k)) 
    for (i in 1:length(ret)){ 
     if (roll[[j]][i]>index[i])(aret[[j]][i] <- ret[i]) 
     else(aret[[j]][i] <- rfree[i]) 
    } 
} 

Answer 1

Это должно сделать это, но я согласен с @Carl, матрица будет легче манипулировать здесь, если все векторы имеют одинаковую длину

roll <- matrix(runif(170),ncol=2) #lets use a matrix instead 
index <- runif(85) #index is your indicator variable when compared to roll 
rfree <- rnorm(85) #assign if roll>index 
ret <- rnorm(85) #assign if index>roll 

#use vector operations when possible, for speed and readability. Look into 
#sapply, lapply etc. Apply is useful for column/row operations in matrices 
result<-apply(roll,2, function(x){ 
    # we will use an anonymous function here for this, 
    #but you could define elsewhere if needed 
    w<-index>x # where is index larger than our roll entries 
    x[w]<-ret[w] #assign the corresponding ret there 
    x[!w]<-rfree[!w] #assign the corresponding rfree where appropriate 
    x 
})