r语言 - 为什么我收到"Object"在此函数中找不到？

Question

query_averager <- function(arg1,
arg2) {
n = tibble()
i = 1
while (i <= 100) {
n[i] <- cpquery(fitted = fitted_bn_01,
event = (ret == "Acima da Selic") ,
evidence = (solidez == arg1) & (resultado == arg2))
i = i+1
}
return (mean(n))
}
Query_result <- query_averager(arg1 = "1", arg2 = "Lucro acima da mediana")

这给了我"；对象arg1未找到"；，但是当我在外面使用函数cpquery()时，它工作得很好。

不带query_averager函数的工作代码：

cpquery(fitted = fitted_bn_01,
event = (ret == "Acima da Selic") ,
evidence = (solidez == "1") & (resultado == "Lucro acima da median"))

我相信其他变量是什么并不重要，主要问题是为什么：

solidez == "1"

有效，而下面的代码片段不起作用：

solidez == arg1

Answer 1

证据表达式中似乎没有任何变量，因为它们不会在函数体中求值。因此，您似乎必须在求值之前操作函数调用。我没有安装和工作这个包，但它似乎可以工作：

query_averager <- function(arg1, arg2) {
n = tibble()
i = 1
while (i <= 100) {
n[i] <- eval(substitute(cpquery(fitted = fitted_bn_01,
event = (ret == "Acima da Selic") ,
evidence = (solidez == arg1) & (resultado == arg2))))
i = i+1
}
mean(n)
}

substitute()部分将arg1和arg2的值注入到表达式中。然后我们用CCD_ 5来评估该表达式。