cut.POSIXt中breaks的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

一段程序中，需要对数据进行动态分割。

例如time=c("1 mins", "2 mins", .......)

然后对list1<-list 的子列表按照time分割。具体来说，list1[[1]]按照time[1]分割，list1[[2]]按照time[2]分割，以此类推。

但是在操作中，如果手动输入breaks，例如“1 mins"，就可以正确分割，但是如果走循环，例如
for(i in 1:lengh(data.frame){
split(data.frame1,cut(strptime(list1[]$time,format="%R")),breaks=c))
}
就会提示， Error in cut.POSIXt(strptime(paste(stock.data[[i + 4]][, 1]), format = "%R"),  :
  'breaks'的值有错

具体代码如下

stock.data<-list(stock.data1,stock.data2,stockdata3,stockdata4,.......)
m<-cal.m(stock.data)
interval.time<-60*240/m
interval.time<-paste0(interval.time," secs")
resample<-list()
bandi.rv<-numeric()
for(i in 1:length(stock.data)-4){
resample[]<-split(stock.data[[i+4]], cut(strptime(paste(stock.data[[i+4]][,1]), format="%R"),paste(interval.time)))
bandi.rv<-sum(as.numeric(lapply(resample[],function(x){return(x[length(x[,1]),2])})),na.rm=T)}
stockdata10.txt (50.71 KB)

2016-3-25 10:45:47 上传

stockdata9.txt (55.52 KB)

2016-3-25 10:45:42 上传

stockdata8.txt (50.08 KB)

2016-3-25 10:45:41 上传

stockdata7.txt (54.09 KB)

2016-3-25 10:45:31 上传

stockdata6.txt (67.75 KB)

2016-3-25 10:45:24 上传

stockdata5.txt (46.24 KB)

2016-3-25 10:45:22 上传

stockdata4.txt (29.54 KB)

2016-3-25 10:45:12 上传

stockdata3.txt (26.78 KB)

2016-3-25 10:45:06 上传

stockdata2.txt (39.34 KB)

2016-3-25 10:45:02 上传

stockdata1.txt (39.75 KB)

2016-3-25 10:44:59 上传

下面的附件中提供了第1到10个子列表。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：breaks break Aks bre cut 程序 动态