Я создал следующую функцию:
nDone<- function (under,strike,ttoe,vol,rf,dy) pnorm(((log(under/strike)+
(rf-dy+(vol^2)/2)*ttoe)/(vol*(ttoe^0.5))))
Затем я вызываю функцию со следующим:
nDone(90,100,3,0.17,0.05,0)
Результат
[1] 0.6174643
Хорошо, пока все хорошо.
Теперь я создаю вектор с теми же значениями в объекте:
d<- c(90,100,3,0.17,0.05,0)
и я пытаюсь вызвать функцию с помощью объекта.
nDone(d)
И я получаю следующую ошибку.
Error in under/strike : 'strike' is missing
Что я делаю неправильно и как исправить?
Спасибо
RSG
