сначала определите функцию, которую вы хотите минимизировать:
my_function <- function(u) {
...
}
Затем вы можете вызвать функцию optim()
:
result <- optim(starting_point_for_u, my_function, ...)
# parameter value minimizing the function
result$par
# minimal value of function
result$value