R无法将列添加到数据框

Question

我尝试将列添加到列表中的多个data.frames。但由于某种原因，它不允许我这样做。

我添加列的代码：

calculatereturn <- function(x){
  return <- numeric(60)
  x<-cbind(x,return)
  x[1,3] <- NA
  for(j in 2:60) x[j,3]=(x[j,2]-x[(j-1),2])/x[j-1,2]
  x<-na.omit(x)
}
lapply(datalist,calculatereturn)

输出显示新列

calculatereturn＆lt; - function（x）{

+   return <- numeric(60)
+   x<-cbind(x,return)
+   x[1,3] <- NA
+   for(j in 2:60) x[j,3]=(x[j,2]-x[(j-1),2])/x[j-1,2]
+   x<-na.omit(x)
+ }
> lapply(datalist,calculatereturn)
$ADM.csv
         Date Adj.Close       return
2  2007-06-01     33.09 -0.055650712
3  2007-07-01     33.60  0.015412451
4  2007-08-01     33.70  0.002976280

但是当我实际调用数据框时。

> datalist$ADM.csv
         Date Adj.Close
1  2007-05-01     35.04
2  2007-06-01     33.09
3  2007-07-01     33.60

这就像代码不起作用。

Thansk提前了！我现在真的很困惑。