Displaying 1 result from an estimated 1 matches for "t_ts_t1t2_chr".
2012 Mar 26
0
filter and merge 2 big Df's by=t_chr in sec.
...t2_POSIXlt<-strptime(t2, "%Y-%m-%d %H:%M:%OS")#
# ts_t1t2_POSIXlt<-seq(t1_POSIXlt,t2_POSIXlt,length.out =-1+2*length(seq(t1_POSIXlt,t2_POSIXlt, "sec") ) )
ts_t1t2_POSIXlt<-seq(t1_POSIXlt,t2_POSIXlt,length.out =length(seq(t1_POSIXlt,t2_POSIXlt, "sec") ) )
t_ts_t1t2_chr<-as.character(format(ts_t1t2_POSIXlt,"%Y-%m-%d %H:%M:%OS"))
tail(t_ts_t1t2_chr)
t_chr<-rep(t_ts_t1t2_chr,c((1:(-1+length(t_ts_t1t2_chr))),1))
str(t_chr)
# system.time()
Df.a<-as.data.frame(cbind(t_chr,a=c(1:length(t_chr)),b=2*c(1:length(t_chr)),c=0.1*c(length(t_chr):1))); D...