使用Keras在R中进行回归的神经网络

Question

我是Keras的新手，我正在尝试为回归问题构建一个神经网络模型。我的代码如下所示

network <- keras_model_sequential() %>%
  layer_dense(units = 15, activation = "sigmoid", input_shape = c(50)) %>%
  layer_dense(units = 1)

summary(network)

network %>% compile(optimizer = optimizer_rmsprop(), loss = "mean_squared_error", metrics = c("accuracy"))

network %>% fit(train_features, train_target, epochs = 100)

当我总结模型时，它看起来像这样： 运行代码后，我收到以下错误：

我不知道如何修复错误。谢谢你的帮助 ！