R中函数的极大值

我想最大化Y，X的值是多少，Y的值会最大化。 我需要为此编写一个函数

样本数据

Y = 20*(1-EXP(-(10*(1-EXP(-X/400)))/5))* Premium - X

---

在R中定义函数，然后使用optimize找到它的最小值。因为您正在寻找最大值，所以需要否定函数定义的输出。 您没有指定Premium如何适合您的优化任务，因此我将假设它是一个固定值：

 id     premium     Y   X
110936  3300       NA   NA
41492   18000      NA   NA
31300   3300       NA   NA
19415   9600       NA   NA
99379   9600       NA   NA

---

你有没有试过可以展示的东西？事实上，我们不知道您是否尝试了一些东西，并且无法从中衡量您的知识水平，从而写出一个全面的答案。在Excel中，我们使用解算器通过更改另一列的值来最大化一列。我们希望在R中实现同样的自动化。

f <- function(x)
{
  Premium <- 3300
  y <- 20*(1-exp(-(10*(1-exp(-x/400)))/5))* Premium - x
  -y  ## Negate the output, because we want to find the maximum
}

optimize(f, c(0,1e6) )
# $minimum
# [1] 1536.798

# $objective
# [1] -55139.53