Функция, которая принимает действительное число и выводит функцию с ним в качестве параметра - PullRequest
0 голосов
/ 24 октября 2019

Я хочу закодировать функцию, которая принимает число и возвращает функцию с этим номером в качестве параметра. Позже я хочу найти корни этой функции, которую она выводит.

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)}

Как мне подойти к этому?

1 Ответ

1 голос
/ 24 октября 2019

Вам не нужно использовать purrr для этого. Ваша функция, кажется, выглядит хорошо. Снова предположим, что вы хотите создать функцию, которая принимает a и b в качестве параметров и возвращает функцию для оценки ax+b. Вот что вы делаете:

lin <- function(a,b){
  function(x) a*x + b
}

Тогда lin(1,1)(1) даст вам 1*1 + 1 = 2. lin(1,0)(x) просто вернет вам входное значение для любого x.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...