我已经expand.grid
使用 eval(parse(...))
.
简而言之:
len <- 36
Text <- paste("pos <- expand.grid(",
paste(rep("c(TRUE,FALSE)", len), collapse=","), ")", sep="")
eval(parse(text = Text))
给我
Error in rep.int(rep.int(seq_len(nx), rep.int(rep.fac, nx)), orep) :
invalid 'times' value
In addition: Warning message:
In rep.int(rep.int(seq_len(nx), rep.int(rep.fac, nx)), orep) :
NAs introduced by coercion
与变量中/len
的组合数相反。TRUE
FALSE
pos
我忽略了一些简单的东西,或者可能不是......?