R tensorflow实现一维CNN

R语言实现一维CNN吗，想输入些变量实现二分类。就是有一些变量，想输入到cnn里算一下进行二分类，这个是想做的数据，按照label进行二分类。嗯，只能用R做的那种，添加loss的曲线

# install.packages("tensorflow")
library(tensorflow)
# install_tensorflow(version = "2.6")
library(keras)
library(dplyr)
library(ggplot2)

## 测试是否安装成功 
library(tensorflow)
tf$constant("Hellow Tensorflow")

读取数据集

data <- read.csv("data7")
## 删除第一个列
df <- data[-1]

划分训练集和测试集

# Split the data into training and testing sets
index <- sample(nrow(df), size = 0.8 * nrow(df))
training_data <- df[index, ]
testing_data <- df[-index, ]

# Prepare the training data
x_train <- as.matrix(training_data[, -1])
y_train <- as.matrix(training_data[, 1])

# Prepare the testing data
x_test <- as.ma