Necesito calcular el máximo de estas funciones con el comando optim, pero me devuelve errores
beneficio <- function(x){ (10 -9*x)*(e^((x)^2 +1)) } maximizarb <- optim(c(0), funcion1, method="L-BFGS-B", control=list(fnscale=-1) me da este error Error in fn(par, …) : object ‘e’ not found
utilidad <- function(x){ log(x)/ x^2 } maximizaru <- optim(c(0), funcion2, method="L-BFGS-B", control=list(fnscale=-1)) Error in optim(c(0), utilidad, method = “L-BFGS-B”, control = list(fnscale = -1)) : L-BFGS-B needs finite values of ‘fn’
