cbind（1， pred） %*% weights[[num_hidden_layers + 1]] 中的错误：需要数值/复数矩阵/向量参数

问：

我正在尝试使用神经网络进行一些预测。我正在使用 R 中的库进行预测。但是当我提交命令predict时，发生了这个错误neuralnet

Error in cbind(1, pred) %*% weights[[num_hidden_layers + 1]] : 
  requires numeric/complex matrix/vector arguments 

这是我的数据集的样子：

-df
Date        Price
30/01/2016  100
27/02/2016  109
10/03/2016  104
11/03/2016  91
10/04/2017  94
19/08/2017  114
23/11/2017  96
30/01/2018  102
11/05/2018  106
03/02/2019  101
11/03/2019  91
19/04/2019  104
22/08/2019  100
30/10/2020  88
30/11/2020  88
15/02/2021  87
30/06/2021  99

(of course this is a sample)

这是我的代码：

df <- read_excel("C:/Users/df.xlsx")

df$Date <- as.Date(df$Date)

# packages
library(forecast)
library(neuralnet)
library(caret)

# 
set.seed(123)

# trainset
prop_training <- 0.7

# 
num_training <- round(nrow(df) * prop_training)

# random samples
training_indices <- sample(seq_len(nrow(df)), size = num_training, replace = FALSE)

# 
train_data <- df[training_indices, ]

# 
test_data <- df[-training_indices, ]


# model
model <- neuralnet(
  Price ~ Date,  
  data = train_data,
  hidden = c(5, 5),  
  linear.output = TRUE  
)

# prediction
predictions <- predict(model, newdata = test_data)

我该如何解决这个问题？