在 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")