F = –y + 2x – ln (x/2)
s.t. –x – ln (x/2) + y ≤ 0
x ∈ [0.5, 1.4]
y ∈ {0, 1}
optimal solution: F∗ = 2.1247, x = 1.375, y = 1
Как мне найти это оптимальное решение для этого нелинейного уравнения с оптимизацией по R?
Я пробовал это:
fn <- function(x,y){
f <- -x-log(x/2)+y
return(c(f))
}
fn2 <- function(z) crossprod(fn(z[1],z[2]) - c(0))
psoptim(c(1,1),fn2)