有没有一种方法可以；“宏”；将多个值输入optimize for R？

我有以下代码：

objective.function = function(r.inf, R0){
  right.side = 1 - exp(-R0 * r.inf)
  left.side = r.inf
  return(abs(right.side - left.side))
}

optimize(f = objective.function, interval = c(0,1), R0 = 1.1)

我的问题是，如果我有多个R0值（例如，1、1.2、1.7、4.3…），是否有一种方法可以将所有这些值一次传递到优化过程并将它们全部吐出，或者我必须手动更改每个值的R0

---

谢谢大家!

使用

sapply

x <- seq(1.1, 1.7, by = .1)
sapply(x, optimize, f = objective.function, interval = c(0,1))

或

library(purrr)
map(x, ~optimize(f = objective.function, interval = c(0,1), R0 = .x))

map_dfr(x, ~optimize(f = objective.function, interval = c(0,1), R0 = .x))