используя функцию оптимизации с итерационным вычислением в r

Question

put <- function(px) {
mgta <- 0.01 
volT_a <- .17 
s <- 500 
k <- 600 
r <- .05 
NAV <- s - px 
d1a <- NAV/k-1 + (r - mgt_a) + 5 * volT_a 
d2a <- NAV/k-1 - (r - mgt_a) + 5 * volT_a 
px <- (NAV * d1a - k * d2a) 
} 

print(optimize(function(px) (put(px) - px)^2, c(0, 0.0000000000000001)))

Я пытаюсь выполнить оптимизацию для вычисления значения px, которое должно быть 263.882353, но я получаю другое значение.