如何在函数中绘制插入符号列车对象

Question

我想编写使用train的{​​{1}}函数训练回归模型的e函数，并绘制重采样配置文件。我的问题是没有显示绘图，也没有抛出错误。这应该是一个可重复的例子：

caret package

因此trFun <- function(){ library( caret ) library( mlbench ) data( BostonHousing ) lmFit <- train( medv ~ ., data=BostonHousing, method="pls" ) #trellis.par.set( caretTheme() ) plot( lmFit ) lmFit } fit <- trFun() plot( fit ) 内的plot( lmfit )不会绘制任何内容，而函数外的trFun会绘制图。 plot( fit )声明似乎无关紧要。

我的问题是：如何在trellis.par.set( caretTheme() )内绘制重新取样配置文件？

这是trFun输出：

sessionInfo()

Answer 1

试试这个：

trFun <- function() {
  library( caret )
  library( mlbench )
  data( BostonHousing )

  lmFit <- train(
    medv ~ .,
    data=BostonHousing,
    method="pls"
  )

  #trellis.par.set( caretTheme() )
  print(plot( lmFit ))

  lmFit
}

trFun()