运行循环时，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))
}