使用do.call（）将character和data.frame参数传递给函数

Question

我不知道自己是否是白痴，但我正在尝试使用do.call（）将参数传递给lavaan cfa（）函数。 我已经使用其他函数成功完成了此操作，但是在这种情况下，参数混合了-即第一个是字符串，第二个是data.frame，第三个是字符串。 举一个简单的例子：

require(lavaan)

#simulating data
t <- rnorm(100,0,.8)
y1 <- t + rnorm(100,0,.2)
y2 <- t + rnorm(100,0,.2)
y3 <- t + rnorm(100,0,.2)
g <- c(0,1)
data <- data.frame(y1,y2,y3,g)

#setting up the lavaan model
model <- 'f1 =~ y1 + y2 + y3'

现在只需使用这些参数就可以了

cfa(model,data,group='g')

但是当我尝试使用do.call（）时

args <- list(model=model,data=data,group='g')
do.call(cfa,args)

我收到此错误消息：

Error in as.character(mc[[1L]]) : 
cannot coerce type 'closure' to vector of type 'character'

我尝试使用replace（），引号和do.call（）的quote-Argument的任何组合，但都无济于事。 因为我想将其用于某种小型包装，所以我想避免使用任何其他包装，而只使用基本功能。 这可能吗？

任何帮助将不胜感激！

最好，马丁

Answer 1

do.call期望其第一个参数为函数的“名称”。 通常，如果将其输入为R符号（不带引号的表达式）或表示为单个元素字符值，则可以正常使用。 在这种情况下cfa为包装lavaan和函数名被转换为称为“model.type”的成功时，它是一个字符值而不是当它是一个函数的R符号名称列表元素。

> do.call('cfa',args)
lavaan (0.5-15) converged normally after  56 iterations

  Number of observations per group         
  0                                                 50
  1                                                 50

  Estimator                                         ML
  Minimum Function Test Statistic                0.000
  Degrees of freedom                                 0
  P-value (Chi-square)                           0.000

Chi-square for each group:

  0                                              0.000
  1                                              0.000