Necesito calcular el máximo de estas funciones con el comando optim
, pero me devuelve errores
beneficio <- function(x){
(10 -9*x)*(exp(x^2 +1)) }
maximizarb <- optim(c(0), funcion1, method="L-BFGS-B", control=list(fnscale=-1)
Me da este error:
Error in optim(c(0), beneficio, method = "L-BFGS-B", control = list(fnscale = -1)) : L-BFGS-B needs finite values of 'fn'
Si lo modifico como
max1 <- optim(c(1), funcion1, method="L-BFGS-B", control=list(fnscale=-1), lower=c(0))
Ahi no me da errores, pero no estoy segura de que este bien
Gracias