Suponha que eu queira minimizar a seguinte função:
-(5-(x1-2)^2-2*(x2-1)^2)
s.a. x1+4*x2 < 3
Para problemas de otimização sem restrição posso usar o seguinte código.
fr <- function(x){
x1 <- x[1]
x2 <- x[2]
-(5-(x1-2)^2-2*(x2-1)^2)
}
optim(c(1,1),fr)
Como fazer a otimização com a restrição?