將表達式轉換爲R函數

Question

我有一個布爾表達式列表，需要在隨機生成的起始點（數據矩陣行）進行求值。我想在R中編寫一個包裝函數，它可以提取列表g的每個元素並將其轉換爲可以評估的函數。例如，參見列表g，第一個元素是（！x [2] &！x [3]）| （！x [2] & x [3]）| （x [2] & x [3]），我想寫它作爲 function（x）{（！x [2] &！x [3]）| （！x [2] & x [3]）| （x [2] & x [3]）}，以便我可以按照以下方式評估數據矩陣的行。我想爲列表g的所有元素執行此操作。

h1<-function(x){(!x[2] & !x[3]) | (!x[2] & x[3]) | (x[2] & x[3])} 
h1(data[,1]) 
[1] TRUE 
h1(data[2,]) 
[1] TRUE 

g<-list(structure("(!x[2] & !x[3]) | (!x[2] & x[3]) | (x[2] & x[3])", class = "noquote"), 
    structure("(!x[2] & !x[1]) | (!x[2] & x[1]) | (x[2] & !x[1])", class = "noquote"), 
    structure("(!x[2] & x[3]) | (x[2] & !x[3])", class = "noquote")) 

> g 
[[1]] 
[1] (!x[2] & !x[3]) | (!x[2] & x[3]) | (x[2] & x[3]) 

[[2]] 
[1] (!x[2] & !x[1]) | (!x[2] & x[1]) | (x[2] & !x[1]) 

[[3]] 
[1] (!x[2] & x[3]) | (x[2] & !x[3]) 

gendata <- function(n,p) { 
    matrix(rbinom(n * p, 1, 0.5), ncol = p, nrow = n) 
} 

data<-gendata(5,3) 
data 
[,1] [,2] [,3] 
[1,] 0 0 0 
[2,] 1 1 1 
[3,] 1 0 1 
[4,] 1 1 1 
[5,] 1 1 0 

我寫了這個包裝函數，但它不起作用，我不知道我做錯了什麼。我對編寫R函數很感興趣，並會很感激幫助。

wrapper <-function(y) {function(x) {(y)}} 
lapply(g,wrapper) 
    [[1]] 
    function (x) 
    { 
    (y) 
} 
<environment: 0x0000000008d848f8> 

[[2]] 
function (x) 
{ 
    (y) 
} 
<environment: 0x0000000008d84a80> 

[[3]] 
function (x) 
{ 
(y) 
} 

Answer 1

你所試圖做的是分析和評估的字符串。

E <- function (...) {eval(parse(text=paste(...,collapse=" ")))} 

然後從字符串生成功能的包裝函數變爲：

wrapper <- function(s){E("function(x){",s,"}")} 

而且你可以將它應用於g生成您的功能列表這可以通過E功能以下來完成：

ListOfFunctions <- lapply(g, wrapper) 

對於這項工作，g可以僅僅是你給的例子中，字符串列表，無需對「noq uote「屬性。

目前還不清楚你想如何使用矩陣。

Answer 2

這被crossposted到Rhelp（以稍微不同的形式），其中Uwe Ligges offered the following solution：

#One way: 

f <- function(x) x 
gfunc <- lapply(g, function(i) {body(f) <- parse(text=i); f}) 

# So now you have functions in your list gfunc and can call them via 

gfunc[[1]](c(0,0,0)) 

我使用上面，並將該溶液併成功提供的結構進行了測試。我不認爲他會介意在這裏重複這個。