返回最佳模型（从一组模型中） R for Automation

问：

我在 R 中开发了 3 个模型。我想选择最佳模型并使用该模型进行预测。以下是一些虚构的数据：

data <- data.frame(x = seq(1, 10, by = 0.1), y = seq(11, 20, by = 0.1), z= seq(21,30, by = 0.1))

test_data <- data.frame(x = seq(101, 110, by = 0.1), y = seq(111, 120, by = 0.1), z= seq(121,130, by = 0.1))

model1 <- lm(y~x, data = data)
model2 <- lm(y~z, data = data)
model3 <- lm(y~ x + z, data = data)

然后，我想比较所有模型的准确性，并将具有最高精度的模型保存为我将用于预测的模型。我无法弄清楚这部分，无法开始。

best_model <- "Model with best accuracy- **Need Help Here**"
caret::predict(best_model, test_data_set)

任何帮助都深表感谢。谢谢。