Question

我有一个数据集，从2015年10月27日到2016年2月24日，时间间隔为1分钟。数据zz如下：

有关zz数据的详细信息，请参见以下链接：[https://drive.google.com/file/d/1IzoIpyiedh_33UJ5SbdrwJTj6cEGSqtZ/view?usp=sharing]

,dataid,meter_value
2015-10-27 19:50:00,1103,183138
2015-10-27 19:51:00,1103,183138
2015-10-27 19:52:00,1103,183138
:
2016-02-24 00:38:00,1103,197015.985697259
2016-02-24 00:39:00,1103,197015.992848629
2016-02-24 00:40:00,1103,197016

我试图从“ 2016-01-01 00:00:00到2016-02-24 00:40:00”预测meter_value并与真实数据进行比较，但是我的预测点不正确。

当我转换两个预测点时，得到的输出不正确。我希望获得预测点“ 2016-01-01 00:00:00到2016-02-24 00:40:00”，但是我得到的预测点是从93851到94850

> as.POSIXct.Date(94850)
[1] "2229-09-10 08:00:00 +08"
> as.POSIXct.Date(93851)
[1] "2226-12-16 08:00:00 +08"

我用于创建时间序列和预测的R代码如下：

start_time <- as.POSIXct("2015-10-27 19:50")
end_time   <- as.POSIXct("2015-12-31 23:59")
mytsTT2 <- ts(zoo(
  zz$meter_value,
  order.by = seq.POSIXt(start_time, end_time, by = "mins"),
  frequency = 10080
))

str(mytsTT2)



  # Time-Series [1:93850] from 1 to 93850: 183138 183138 183138 183138 183138 ...
    # - attr(*, "index")= POSIXct[1:93850], format: "2015-10-27 19:50:00" ...
    # - attr(*, "frequency")= num 10080
    Forecasting R-code:

autoplot(forecast(mytsTT2,1000))
write.csv(forecast(mytsTT2,1000),"D1103-mytsTT2-1000fc.csv",quote=F)

您能帮助我确定正确的预测点，还可以转换为日期时间格式吗？

R中的测试和培训预测

0 个答案: