如何在R中的expoetial方程中獲得x的值

Question

我有以下等式，我想得到 x 的值。

 (1/(1+exp(-(0.1348*x + 64.7027))))+ (x-70)=0

我嘗試了 library(nleqslv)，但沒有成功獲得 x

Answer 1

定義一個函數f ：

f <- function(x) 1/(1+exp(-(0.1348*x + 64.7027))) + (x - 70)

為了查看根可能落在何處，繪制函數，嘗試幾個限制。

curve(f, from = 0, to = 100)

上面那個有相反符號的端點，所以這是uniroot的工作。

uniroot(f, interval = c(0, 100))
#$root
#[1] 69
#
#$f.root
#[1] 0
#
#$iter
#[1] 1
#
#$init.it
#[1] NA
#
#$estim.prec
#[1] 69

為了獲得根的值，請嘗試以下兩種方法中的任何一種。

uniroot(f, interval = c(0, 100))$root
#[1] 69

y <- uniroot(f, interval = c(0, 100))
y$root
#[1] 69