Проблема здесь в том, что процедура оптимизации пробует по пути отрицательное значение параметра дисперсии. Вы можете убедиться в этом сами, установив
options(warn=2, error=recover)
, который указывает, что предупреждения преобразуются в ошибки и что ошибки запускают режим отладки. Как только вы это сделаете, повторно запустите команду aodml(...)
, выберите кадр 4 и распечатайте значения m
, n
, mu
и k
, передаваемые в dbetabin
. Вы увидите, что k
отрицательно.
Вы можете решить эту проблему, установив phi.scale="log"
, который будет соответствовать параметру дисперсии в логарифмической шкале (что в любом случае имеет больше смысла).