主要是通过R语言,对日期数据进行处理,并补全缺失数据rawdata<-read.csv("C:/Users/li/Desktop/ss.csv",fill=F)#提取数据ss1,并组合数据-------------------------------ts1<-rawdata$ts1ts11<-as.Date(ts1,'%Y/%m/%d')false<-is.na(ts11)ts21<-ts11[!false]ss1<-rawdata$SS1ss1<-ss1[!false]library(zoo)data1<-zoo(ss1,ts21)#补全不规则数据(时间的缺失和缺失值)date1<-zoo(,seq(start(data1),end(data1),'day'))datanew1<-merge(data1,date1)datanew1[is.na(datanew1)]<-median(datanew1,na.rm=T)#提取数据ss2
1