我有一个单一变量和各种参数的函数。
对于其中一个参数的每个值(其他参数是固定的)，都有一个函数的根。我想从参数向量生成根向量(使用uniroot)。
我正在处理的实际示例有点困惑，但我会给出它。以下是固定参数:
eta_inf = -0.0139 eta_0 = 178.5 lambda = 2.4954 m = 0.83094
这是函数:
crossFnc <- function(gamma_dot) tau - gamma_dot*(eta_inf + (eta_0-eta_inf)/(1 + (lambda*gamma_dot)^m))
以下是 tau 参数特定值的根示例:
tau=10 uniroot(crossFnc, c(0,1))$root[1] 0.06900807
我想生成这些根的向量，例如:
tau <- seq(0,10,length.out=101)
谢谢
史蒂夫
最佳答案
也许你可以使用for循环:
my.roots <- vector()
tau.seq <- seq(0,10,length.out=101)
for (i in seq_along(tau.seq)) {
tau <- tau.seq[i]
my.roots[i] <- uniroot(crossFnc, c(0,1))$root
}
#> head(my.roots)
#[1] 0.000000000 0.000566379 0.001142346 0.001726677 0.002257765 0.002848007
关于r - 生成函数向量，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38445109/