在Python语言中，这个TensorFlow程序对应的R代码是什么？

library(reticulate)

# 加载Python环境
use_python("python")

# 导入TensorFlow模块
tf <- import("tensorflow")

# 创建一个简单的神经网络模型
model <- tf$keras$Sequential()
model$add(tf$keras$layers$Dense(10, activation = "relu", input_shape = c(4,)))
model$add(tf$keras$layers$Dense(3, activation = "softmax"))

# 编译模型
model$compile(optimizer = "adam",
              loss = "sparse_categorical_crossentropy",
              metrics = c("accuracy"))

# 加载数据集
iris <- tf$keras$datasets$iris
(x_train, y_train) <- iris$load_data()$train
(x_test, y_test) <- iris$load_data()$test

# 训练模型
model$fit(x_train, y_train, epochs = 10)

# 在测试集上评估模型
model$evaluate(x_test, y_test)