Cách tạo chu kỳ xts thông thường từ các quan sát thời gian ngẫu nhiên?

Question

Tôi có ma trận XTS sau:

> options(digits.secs = 6) 
> set.seed(1234) 
> xts(1:10, as.POSIXlt(1366039619, tz="EST", origin="1970-01-01") + rnorm(10, 500000, 250000)/1000000) 
          [,1] 
2013-04-15 10:26:58.913576 4 
2013-04-15 10:26:59.198234 1 
2013-04-15 10:26:59.277491 10 
2013-04-15 10:26:59.356315 7 
2013-04-15 10:26:59.358887 9 
2013-04-15 10:26:59.363342 8 
2013-04-15 10:26:59.569357 2 
2013-04-15 10:26:59.607281 5 
2013-04-15 10:26:59.626514 6 
2013-04-15 10:26:59.771110 3 
Warning message: 
timezone of object (EST) is different than current timezone(). 

tôi cần phải tạo ra hàng loạt mục thời gian mỗi 100 mili giây mang giá trị cuối cùng trong giai đoạn đó. Ví dụ:

      [,1] 
2013-04-15 10:26:58.000000 4 
2013-04-15 10:26:59.100000 4 
2013-04-15 10:26:59.200000 1 
2013-04-15 10:26:59.300000 10 
2013-04-15 10:26:59.400000 8 
... 

Lưu ý cách mục nhập cuối cùng mang 8, là mục nhập cuối cùng cho khoảng thời gian từ 300.000 đến 0,99999.

Answer 1

Tôi không chắc chắn nếu điều này sẽ làm việc trên Windows, vì hỗ trợ cho độ chính xác phụ thứ hai là người nghèo, nhưng điều này hoạt động trên Ubuntu.

library(xts) 
options(digits.secs=6) 
set.seed(1234) 
x <- xts(1:10, as.POSIXlt(1366039619, tz="EST", origin="1970-01-01") 
    + rnorm(10, 500000, 250000)/1000000) 
ti <- trunc(index(x)) 
ms <- rep(seq(min(ti),max(ti),by="s"), each=10)+0:9/10 
a <- merge(x,ms,fill=na.locf)[ms] 

Bạn sẽ nhận thấy rằng bạn xử lý giống như bất kỳ trường hợp nào khác mà bạn cần tạo chuỗi xts thông thường từ dữ liệu không thường xuyên. Đó là một chút khó khăn hơn mặc dù, vì nó khó khăn hơn để tạo ra một chuỗi phụ thứ hai.