为什么得到的结果不对

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

x1<-c("2015-01-01","2015-01-02","2015-01-03","2015-01-04","2015-01-05","2015-01-06","2015-01-07","2015-01-08","2015-01-09","2015-01-10","2015-01-11")
x2<-c(1,3.5,2.8,9,8.1,10,11,7.4,6.2,4.8,1.2)
x3<-c(0.12,0.11,0.02,0.31,0.22,0.17,0.43,0.35,0.61,0.44, 0.29)
x<-data.frame(x1,x2,x3)
data.list<-list()
for(i in 6:10)
{
  data.list[[i-5]]<- filter(x,x2>=i)
}
for(i in 1:5){
  for(j in 1:length(data.list[[i]][,3])){
    data.list[[i]][,3]<- data.list[[i]][j,3]/sum(data.list[[i]][,3])
  }  
}
得到的结果是
data.list
[[1]]
          x1   x2        x3
1 2015-01-04  9.0 0.1666667
2 2015-01-05  8.1 0.1666667
3 2015-01-06 10.0 0.1666667
4 2015-01-07 11.0 0.1666667
5 2015-01-08  7.4 0.1666667
6 2015-01-09  6.2 0.1666667

[[2]]
          x1   x2  x3
1 2015-01-04  9.0 0.2
2 2015-01-05  8.1 0.2
3 2015-01-06 10.0 0.2
4 2015-01-07 11.0 0.2
5 2015-01-08  7.4 0.2
若用

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

知道为什么，因为每次做完操作之后，data.list[][,3]里的东西就变了，所以sum也变了，重新定义一个k1<-0
让k1[[j]]<- data.list[][j,3]/sum(data.list[][,3]),其实能用lappy做更好，但是用这个函数族的时候老是出错