如何将自定义公式传递给插入符号的learing_curve_dat？

Question

train(mpg ~ wt+cyl,
      mtcars,
      method = "lm")

learing_curve_dat(dat=mtcars,
                  outcome="mpg",
                  test_prop = 1/5,
                  method="lm",
                  trControl = trainControl(method = "cv",
                                            number = 3,
                                            repeats = 1))

使用插入符号中的火车，我们可以轻松地自定义lm的公式。我们如何将自定义公式传递给learing_curve_dat？

关于train的参数，documentation明确表示“这些不应该包括x，y，公式或数据”。我如何解决此约束？我需要创建并使用自己的模型吗？

顺便说一句，为什么叫learing_curve_dat而不是learning_curve？

---

更新：

我发现train中的learing_curve_dat仅支持Default S3 method，为了将公式作为参数传递，我们需要S3 method for class 'formula'。我将train函数替换为源代码中的S3 method for class 'formula'，并添加了form作为参数。

mod <- train(form=form,
             data=dat[in_mod,,drop=F],
             ...)