Truyền chức năng làm chức năng nhập và trả về

Question

Tôi muốn viết hàm R có chức năng toán học trong x và trả về một hàm mới trong x làm đầu ra. Ví dụ:

Các đầu vào phải được thông qua tại như một hàm toán học (hoặc liên quan) trong x:

g <- x^2 + 9*x + log(x) 

Và kết quả đầu ra nên là:

function(x) (exp(g)) 

tức là tôi muốn trở lại biểu thức hàm mũ biểu tượng của hàm ban đầu trong x tức là exp(x^2 + 9*x + log(x)) trong ví dụ minh họa này

Vì vậy, lý tưởng nó sẽ trả lại đối tượng chức năng:

function(x) (exp(x^2 + 9*x + log(x))) 

tôi đã cố gắng như sau:

test <- function(g){ 
h <- function(x){exp(g)} 
return(h) 
} 
m <- test(x^2 + 9*x + log(x)) 
m(10) 

Vì vậy m (10) sẽ trả về:

exp(10^2 + 9*10 + log(10)) 

đó là exp (192,3026) trong trường hợp này.

Có ai có thể cho biết cách thực hiện việc này không?

Answer 1

chỉnh sửa - cho các chức năng trong câu hỏi

f <- function(...) { 
    l <- eval(substitute(alist(x = x, ...))) 
    l[[2]] <- substitute(exp(X), list(X = l[[2]])) 
    as.function(`names<-`(l, l[sapply(l, is.symbol)])) 
} 

g <- f(x^2 + 2*x + 5) 
# function (x = x) 
# exp(x^2 + 2 * x + 5) 

g(1) 
# [1] 2980.958 

---

Dưới đây là một cách khác cho một trường hợp chung:

f <- function(...) { 
    l <- eval(substitute(alist(...))) 
    as.function(`names<-`(l, l[sapply(l, is.symbol)])) 
} 

g <- f(x, x^2 + 9*x + log(x)) 

# function (x = x) 
# x^2 + 9 * x + log(x) 

g(10) 
# [1] 192.3026 

Phiên bản này cũng sẽ làm việc cho bất kỳ số lượng biến, chỉ cần xác định họ tiếp theo là chức năng:

g <- f(x, y, z, x + 2 * y + z ** 3) 

# function (x = x, y = y, z = z) 
# x + 2 * y + z^3 

g(1, 2, 0) 
# [1] 5 

---

Có thể có một cách tốt hơn để thêm ... chức năng, nhưng đây là cách bạn có thể làm điều đó

f <- function(..., use_dots = FALSE) { 
    l <- eval(substitute(alist(...))) 
    if (use_dots) 
    l <- c(head(l, -1), list('...' = as.symbol('...')), tail(l, 1)) 
    as.function(`names<-`(l, l[sapply(l, is.symbol)])) 
} 

Vì vậy, bây giờ bạn không phải đặt tên cho tất cả các biến/đối số

g <- f(x, y, plot(x, y, ...), use_dots = TRUE) 
g(1:5, 1:5, main = 'main title', pch = 16, col = 3, cex = 3, xpd = NA) 

Answer 2

Dưới đây là một cách tiếp cận:

test <- function(e) { 
    ee <- substitute(e) 
    eee <- substitute(exp(X), list(X=ee)) 
    f <- function(x) {} 
    body(f) <- eee 
    environment(f) <- parent.frame() 
    f 
} 

## Check that it works 
m <- test(x^2 + 9*x + log(x)) 
m 
# function (x) 
# exp(x^2 + 9 * x + log(x)) 
m(1) 
# [1] 22026.47 
m(1) == exp(10) 
# [1] TRUE 

Answer 3

Bạn có thể sử dụng gói chức năng:

library(functional) 
fun <- Compose(function(x) x^2 + 9*x + log(x), exp) 
fun(1) 
#[1] 22026.47