R错误：无法将对象强制为类型'；双倍'&；非共形阵列

我只是想在RStudio中建立一个非常简单、朴素、简单的预测模型，但不知何故，当我试图绘制准确度指标时，我总是遇到一个错误

Amtrak.data = read_excel("Amtrak.xlsx")
Data.ts = ts(Amtrak.data$column1, start = c(1991,1), end = c(2004, 3), freq = 12)
nValid = 36
nTrain = length(Data.ts) - nValid
train.ts = window(Data.ts, start = c(1991,1), end = c(1991, nTrain))
valid.ts = window(Data.ts, start = c(1991, nTrain +1), end = c(1991, nTrain + nValid))
naive.pred = naive(train.ts, h = nValid)
snaive.pred = snaive(train.ts, h = nValid)
accuracy(naive.pred, valid.ts)
accuracy(snaive.pred, valid.ts)

发生的错误：

NextMethod（.Generic）中出错： （列表）对象不能强制为“double”类型 此外：警告信息： 在

！=。默认值（实际值、预测值）：
较长的对象长度不是较短对象长度的倍数

我已经尝试过调整矩阵中的值，如下所示：

naive.pred = as.matrix(naive.pred)
snaive.pred = as.matrix(snaive.pred)
valid.ts  = as.matrix(valid.ts)

但这只能部分修复错误：

实际错误！=预测：非共形阵列

我感到很沮丧，因为这应该很容易。。有人知道怎么修吗
 您能否提供一个小样本的数据或示例数据来重现错误？欢迎使用。这不是一个真正的聊天论坛。有规则和期望。最后编辑了你的无关评论。这种加强的表达被认为是“嘈杂”的，没有什么用处。我们也很沮丧。您应该发布足够的代码和数据来重现问题。否则，有一套结束的规则，而你的规则似乎就是其中之一。请阅读介绍材料并使用这些工具来改进您的问题。顺便说一句，个人形象不错。