Ошибка в storage.mode при запуске цикла

Question

Я пытаюсь настроить цикл с учетом 3 наборов данных, которые у меня есть.

1. Первый - это блок данных, представляющий собой список кодов с именем List
2. Второй - это фрейм данных, представляющий собой список кодов, но попарно.
3. У меня есть файл серии возвратов, в котором значения располагаются слева направо вместе с кодами в первом столбце.

То, что я пытаюсь сделать, это настроить цикл для прохождения всех пар и извлечь серии возвращаемых значений из файла, а затем вывести корреляцию в паре в крайней правой части Второго файла, который является списком

При настройке цикла ниже я получаю следующую ошибку.

[1] "69643W"
Error in storage.mode(test) <- "logical" : 
  invalid to change the storage mode of a factor

Есть идеи, в чем здесь проблема?

#####Getting list for Correlation Calculation
List=All_Pairs_for_Cohesion[c(2,4)]
names(List)[2]<-paste("Code")
List2= rbind(List[c(1)],List[c(2)])

######Subsetting the returns
Returns=AssetReturns[(AssetReturns$ID %in% List2$Code),]

Returns=Returns[,c(1,8:187)]

###############Setting up the loop#########
for(x in 1:dim(List)[1]){
  entry1 <- List2$Code[x]
  entry2 <- List2$Code[x+278]
  print(entry1,entry2)
  TS1= as.numeric(subset(Returns,Returns$ID %in% entry1,2:181))
  TS2= as.numeric(subset(Returns,Returns$ID %in% entry2,2:181))
tmp[x] = as.data.frame(cor(TS1,TS2))
}