Подберите экспоненциальную функцию с потенциально отрицательным основанием в R, используя mle - PullRequest
0 голосов
/ 28 ноября 2018

Это, вероятно, глупый вопрос, но здесь идет речь: я хочу подогнать параметр "a" из x ^ a, используя mle в R. Когда x> = 0, я хочу, чтобы функция читала:

x^a

Когда x <0, я хочу изменить функцию на </p>

-(-x)^a

.Простая спецификация if-else в коде не работает.Например:

Q<-function(r){
    if(r>=0){r^a}
    else{-(-r)^a}
  }

Программа возвращает следующее предупреждение:

условие имеет длину> 1, и будет использоваться только первый элемент

Кто-нибудь еще сталкивался с подобной проблемой?На первый взгляд это похоже на проблему, похожую на кусочную регрессию ... Но как реализовать это в функции mle?Спасибо!

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