R. функция. Ошибка

Question

У меня есть следующая функция е

f <- function (n) if (n==0) 1 else f(n - 1)(n %% 2) - f(n-1)(n+1) 

Я думаю, что это определено правильно, но я не могу вычислить п (8)

f(8) 

> Error in f(n - 1) : attempt to apply non-function 

что я должен изменить?

Answer 1

В рекурсии R не очень хорошо оптимизирован, но основным подходом является использование функции Recall. Неясно, что вы намерены использовать синтаксис «двойного вызова», например. f(n-1)(n+1) где f следует сначала скобками в паре с одним аргументом, а затем другим аргументом. Функция f не предназначена для возврата функции. Я собираюсь сделать предположение, что вы хотели рекуррентное соотношение в ф (п) быть:

f(n - 1)*(n %% 2) - f(n-1)*(n+1) 

Если это предположение верно, то:

f <- function (n) if (n==0) 1 else {Recall(n - 1) *(n %% 2) - Recall(n-1)*(n+1)} 

> f(8) 
[1] 99225 

я сделал предположение до осветления но кажется, что я был прав, думая, что вы не понимаете, что f(n)(n %% 2) был некорректным R синтаксисом. Обратно к круглым скобкам (скобки на английском английском языке) не означает умножение, а скорее функцию приложения. Посмотрите на ?Syntax и пример см. ?ecdf, где ecdf(x)(n) является приемлемым вложенным вызовом, потому что ecdf возвращает функцию как значение.