全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1334 4
2017-08-13
#generate time sequence
time <- seq.Date(from = as.Date("2002/01/01",format = "%Y/%m/%d"), by = "week", length.out = 679)
tail(time)
#transfer time sequence to matrix
time=matrix(time,nrow = length(time),ncol = 1)

dim(time)

slope3_1=matrix(NA,nrow=679,ncol=439) #679weeks, 439firms  

for(i in 1:439){
  stock=read.csv(paste("E:/CDS_data/stock_1/stock.", i,".csv", sep=""),header=T,stringsAsFactors=F,fill=TRUE)
  stock=select(stock,firms,date,slope3)
  stock[,"date"]=as.Date(stock[,"date"],form="%Y-%m-%d")
  tseq=as.character(time)
  tseq=as.Date(time,form="%Y/%m/%d")
  for(j in 1:679){

    if(stock[j,"date"]>=tseq[length(tseq)]){
      slope3_1[length(tseq),i]=stock[j,"slope3"]
      next
    }

    for(k in 1:678){

      if((stock[j,"date"]>=tseq[k])&(stock[j,"date"]<tseq[k+1])){
        slope3_1[k,i]=stock[j,"slope3"]
        break
      }

    }


  }
}
Error in if (stock[j, "date"] >= tseq[length(tseq)]) { :
  missing value where TRUE/FALSE needed

二维码

扫码加我 拉你入群

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

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

全部回复
2017-8-13 21:48:54
对停牌做处理了吗
二维码

扫码加我 拉你入群

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

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

2017-8-13 21:50:47
时间序列和价格序列的长度不一致
二维码

扫码加我 拉你入群

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

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

2017-8-13 22:46:55
sanqi_jgzj 发表于 2017-8-13 21:50
时间序列和价格序列的长度不一致
你好,我是有公司的不规则CDS spread的数据,是面板数据,然后想做一张规则的表,把有日期的数据放进去,没有的就是NA。但是循环就出现这个问题,不知道如何解决,还望大神赐教
二维码

扫码加我 拉你入群

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

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

2017-8-13 22:47:16
sanqi_jgzj 发表于 2017-8-13 21:48
对停牌做处理了吗
没有,应该怎么处理啊?
二维码

扫码加我 拉你入群

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

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

栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群