我有一个问题,是否有可能在R中实现一个excel函数"搜索决策"?R 中是否有函数,或者是否需要在 R 中创建脚本。 有必要通过组合X
值来求解以下等式,得到 1,126 作为结果。
1.126 = X / (X + 0.2) * (EXP (X + 0.2) -1)
您可以使用uniroot
找到此等式的解。您的方程的解与X / (X + 0.2) * (exp(X + 0.2) -1) - 1.126 = 0
的解相同 所以...
Dec = function(X) X / (X + 0.2) * (exp(X + 0.2) - 1) - 1.126
uniroot(Dec, c(0,2))
(部分(结果是
$root [1]
0.6959234
$f.根 [1]
-1.585758e-06
如果需要更高的精度,可以调整tol
参数。
uniroot(Dec, c(0,2), tol= 0.0000001)
$root
[1] 0.6959241
$f.root
[1] 7.61391e-13