Problema con comando optim

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’