r - 为什么从函数内部调用cv.tree()找不到此对象？

Question

在函数内调用cv.tree()时，似乎出现了 namespace 或范围问题:

library(tree)
library(ISLR)
Carseats$High = ifelse(Sales <= 8, "No", "Yes")

mytreecv = function(formula, mydata)
{
  set.seed(2)
  tree.carseats = tree(formula, mydata)
  cv.carseats = cv.tree(tree.carseats, FUN=prune.misclass)
}

当我运行mytreecv()时，出现此错误:

> mytreecv(High ~ . - Sales, Carseats)
Error in is.data.frame(data) (from #5) : object 'mydata' not found

对model.frame(object)的cv.tree()调用失败。当我从R提示符下调用每一行时，相同的功能代码将起作用。

Answer 1

不确定为什么会发生这种情况，但是可以通过使用参数model = T创建树来解决。使用上面的示例:

mytreecv = function(formula, mydata)
{
  set.seed(2)
  tree.carseats = tree(formula, mydata, model = T)
  cv.carseats = cv.tree(tree.carseats, FUN=prune.misclass)
}

在这里找到答案: http://florence.acadiau.ca/collab/hugh_public/index.php?title=R:putting_cv.tree_inside_a_function&redirect=no