请解决R studio的这个问题：没有为“提供数据”；密集的“U 3”输入；。需要每个输入键的数据：['；密集输入'；]

我是R工作室的新手。我有一个严重的问题，我必须解决的代码。 我试着制作一个神经网络，用7个属性和一个维度（1259，8）的数据集预测一个类。运行代码后，我检查了以下错误：

py_call_impl中出错（可调用、dots$args、dots$keywords）： ValueError:没有为“密集输入”提供数据。在：['dense_3_input']中需要每个键的数据

不幸的是，我不知道如何解决这个问题。 如果有人知道如何解决这个问题，请告诉我

这是我的密码

dev.off()
rm(list=Is())
cat("\f")

library(keras)
df <- read.csv("Model_5_data..csv", header=TRUE)
data<-data.frame(df)
data

str(data)
dim(data)
nrow(data)
ncol(data)

ind <- sample(2, norw(data), replace=TRUE, prob = c(0.7,0.3))


train <- data[ind==1,]
test <- data[ind==2,]

x_train <- subset(train, select=c(1,7)
x_test <- subset(test, select=c(1,7)
y_train <- train$Chl.a
y_test <- test$Chl.a

model <- keras_model_sequential() %>%
   layer_dense(units = 16, activation = "relu", input_shape = c(7)) %>%
   layer_dense(units = 16, activation = "relu") %>%
   layer_dense(units = 1, activation = "relu")
summary(model)

model %>% compile(
   optimizer = "adam", loss="mse"
)

model %>% fit(x_train, y_train, epoch = 100, batch_size = 1)
result <- model%>% evalutate(x_test, y_test)
result

谢谢你阅读我的问题。

---

希望大家今天过得愉快。

我在RStudio中开始使用Keras软件包时遇到了同样的错误。我认为问题在于您使用

data.frame

作为模型的输入数据。当您使用

as.matrix

函数转换数据帧时，它应该会起作用

x_train <- as.matrix(x_train)

x\u列车
x_train <- as.matrix(x_train)