1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| DAMPS<- Données.nettoyées.Sambat.DAMPS.
DAMPS<- DAMPS2 <- DAMPS3 <- DAMPS[order(DAMPS[,1]),]
TDAMPS<-strptime(DAMPS[,1],"%Y-%m-%d %H:%M:%S")
TMi<-min(TDAMPS)
TMf<-max(TDAMPS)
TMiCont <-as.POSIXlt(round(as.double(TMi)/(15*60))*(15*60),origin=(as.POSIXlt('1970-01-01')))
TMfCont <-as.POSIXlt(round(as.double(TMf)/(15*60))*(15*60),origin=(as.POSIXlt('1970-01-01')))
TContDAMPS<-seq(TMiCont,TMfCont,by=900)
TDAMPS2<-as.POSIXlt(TDAMPS+(TMiCont-TDAMPS[1]))
TDAMPS3<-as.POSIXlt(round(as.double(TDAMPS2)/(15*60))*(15*60),origin=(as.POSIXlt('1970-01-01')))
DAMPS2[,1]<-as.character(TDAMPS2)
DAMPS3[,1]<-as.character(TDAMPS3)
TContDAMPS<-data.frame(SambatTime=as.character(TContDAMPS),stringsAsFactors=F)
DAMPS4<-merge(TContDAMPS,DAMPS3,by="SambatTime",all=T)
DAMPS5<-DAMPS4[which(duplicated(DAMPS4[,1])==F),] |
Partager