双for循环不起作用

Question

我正在尝试根据规则为向量列表创建一组新向量。我的输入由 3 个法线向量（index、rfree、ret）和几个向量的列表（roll）组成，所有向量的长度相同。我希望新向量遵循以下规则：if 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
 })