Как передать несколько аргументов в функцию как один вектор?

Я создал следующую функцию с шестью аргументами:

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)
# Result: 
[1] 0.6174643

Теперь я создаю вектор с теми же значениями в объекте и пытаюсь вызвать функцию, используя вектор, но получаю следующую ошибку:

d <- c(90,100,3,0.17,0.05,0)

nDone(d)

Error in under/strike : 'strike' is missing

Что я делаю не так и как исправить?