r - 通过函数将公式传递给 cor.test

Question

采用随机数据和这两个函数。

data = data.frame(x=c(1,2,3,4,5,5), y=c(1,2,3,4,5,5))

test_fun1 <- function(data, formula){ lm( formula = formula, data = data)  }
test_fun2 <- function(data, formula){ cor.test( formula = formula, data = data) }

lm 按预期工作。

test_fun1( data = data, formula= x~y )

但我不能对 cor.test 做同样的事情。这失败了:

test_fun2(数据=数据，公式=~x+y)

直接就可以正常工作:

cor.test(公式 = ~x+y, 数据 = 数据)

根据我的阅读，可能存在一些范围界定问题。它找不到通过的公式。错误是“错误:'closure'类型的对象不可子集化”但这是因为找不到formula，然后它尝试使用名为formula的函数。

如何让它找到传递的函数？

Answer 1

该功能可能存在错误。尝试这个解决方法:

test_fun3 <- function(data, formula) { 
  eval.parent(substitute(cor.test( formula = formula, data = data))) 
}

这将替换 test_fun3 中的参数，然后在父框架(即 test_fun3 的调用者)中运行它。