Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/82.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 列车和试验装置的长度与实际装置的长度不同_R_Forecasting_Forecast - Fatal编程技术网

R 列车和试验装置的长度与实际装置的长度不同

R 列车和试验装置的长度与实际装置的长度不同,r,forecasting,forecast,R,Forecasting,Forecast,我正在使用test\u forecast,我的代码设置如下 df_train <- df[1:20] df_test <- df[21:nrow(df)] test_forecast(actual = df, forecast.obj = forecast, train = df_train, test = df_test) df是一个数据表,但我也尝试了将所有对象转换为数据帧,但没有成功

我正在使用
test\u forecast
,我的代码设置如下

df_train <- df[1:20] 
df_test <- df[21:nrow(df)] 

test_forecast(actual = df, 
              forecast.obj = forecast,
              train = df_train, 
              test = df_test)

df
是一个数据表,但我也尝试了将所有对象转换为数据帧,但没有成功

我尝试了数据帧和数据表,得到了完全相同的错误消息

仔细阅读
测试预测
后,我发现:

实际:完整的时间序列对象(支持“ts”、“zoo”和“xts”格式)

结论是,
test\u forecast
不应该与data.frames/data.tables一起工作。

由于您没有提供正在使用的数据,我尝试了以下方法:

library(TSstudio)
ts <- USgas
ts_par <- ts_split(ts, sample.out = 20)

train <- ts_par$train

test <- ts_par$test

ts_info(train)
ts_info(test)

library(forecast)

md <- tslm(train ~ season + trend)

fc <- forecast(md, h = 20)
test_forecast(actual = ts,
              forecast.obj = fc,
              test = test)

你不想改成我的[1:20]
?测试数据集缺少相同的逗号,但
my_-df[21:nrow(my_-df),]
。或者在调用
test\u forecast()
时使用
actual=df
df
是您的实际数据吗?
df
my_df
相同吗?@RuiBarradas,这是一个数据表,所以切片的工作方式与df[1:20,]@BenNorris,对不起,我的错误。我将其更新为正确。您是否尝试了函数示例中所示的
ts_split
函数,并将其与您的结果进行了比较
split@Cauder,另请参见我刚才在答案末尾添加的最后一句话。
library(TSstudio)
ts <- USgas
ts_par <- ts_split(ts, sample.out = 20)

train <- ts_par$train

test <- ts_par$test

ts_info(train)
ts_info(test)

library(forecast)

md <- tslm(train ~ season + trend)

fc <- forecast(md, h = 20)
test_forecast(actual = ts,
              forecast.obj = fc,
              test = test)
class(USgas[1:20])
[1] "numeric"