在 R 中擬合指數衰減 model

Question

我對 R 非常陌生，感謝您的幫助

我有一些看起來像這樣的數據。

Y 與 X 呈非線性負相關。 它似乎通過以下形式的公式來近似y=1+a ^x其中a<1 。

如果我想將這些數據放入 R 以找到我會使用的function 嗎？ NLS？

Answer 1

下次請提供測試數據。 這次我們已經為您完成了。 然后我們如圖所示使用nls 。

set.seed(123)

# generate test data
n <- 35
x <- 1:n
a <- 0.5
y <- 1 + a^x + rnorm(n, 0, .01)

fm <- nls(y ~ 1+a^x, start = list(a = mean((y-1)^(1/x), na.rm = TRUE)))
fm

給予：

Nonlinear regression model
  model: y ~ 1 + a^x
   data: parent.frame()
     a 
0.5025 
 residual sum-of-squares: 0.003031

Number of iterations to convergence: 5 
Achieved convergence tolerance: 1.346e-06

Plot

plot(y ~ x)
lines(fitted(fm) ~ x, col = "red")