Я хочу закодировать функцию, которая принимает число и возвращает функцию с этим номером в качестве параметра. Позже я хочу найти корни этой функции, которую она выводит.
fooToOptimze <- function(PD) {
f <- function(C, k) { 0.089 * exp(1.6234 * PD) - C * exp(k * PD)}
return(f)
}
Однако, таким образом, я получаю:
fooToOptimize(.5)
OUTPUT
function(C, k) { 0.089 * exp(1.6234 * PD) - C * exp(k * PD)}
Как мне подойти к этому?