我想要创建一个函数来用rpart显示partykit的结果。我用下面的代码用rpart转换了as.party的结果,并显示了树结构。
library(partykit)
library(rpart)
result1 <- rpart(Species~.,data = iris)
plot(as.party(result1))因此,我在函数中定义了rpart和as.party,并执行了它。
rpart_party <- function(formula, data){
result1 <- rpart(formula = formula ,data = data)
return(as.party(result1))
}
plot(rpart_party(Species~., data = iris))但是,发生了以下错误。
eval(predvars,data,env)中的错误:类型“闭包”的“环境”参数无效
请告诉我如何创建一个函数,用as.party转换as.party的结果,并显示树的结构。
发布于 2018-06-24 14:45:06
您需要将对公式的评估封装在类似于substitute(...)的东西中,以防止将模型调用设置为“公式”而不是“物种~”。等。
rpart_party <- function(formula, data){
result1 <- rpart(formula = substitute(formula), data = data)
return(as.party(result1))
}https://stackoverflow.com/questions/51010800
复制相似问题