用预测包预测R.

Question

我正在尝试预测一个过程30天的每小时数据。

我使用了以下代码：

# The packages required for projection are loaded
library("forecast")
library("zoo")

# Data Preparation steps

# There is an assumption that we have all the data for all
# the 24 hours of the month of May
time_index <- seq(from = as.POSIXct("2014-05-01 07:00"),
    to = as.POSIXct("2014-05-31 18:00"), by = "hour")
value <- round(runif(n = length(time_index),100,500))

# Using zoo function , we merge data with the date and hour
# to create an extensible time series object
eventdata <- zoo(value, order.by = time_index)

# As forecast package requires all the objects to be time series objects,
# the below command is used 
eventdata <- ts(value, order.by = time_index)

# For forecasting the values for the next 30 days, the below command is used
z<-hw(t,h=30)
plot(z)

我觉得这段代码的输出效果不好。 预测的行看起来不对，日期没有在图表上正确投影。

我不确定错误在于数据准备，或者输出是否符合预期。有什么想法吗？