r - 如何在 R 中获得 Sigmoid 增长模型的预测值

Question

我试图通过在 R 中使用 Sigmoid 增长模型来预测未来的收入。模型是这样的：

Y = a/( 1+ce^(-bX) ) + noise

我的代码：

x <- seq(-5,5,length=n)
y <- 1/(1+exp(-x))
plot(y~x, type='l', lwd=3)
title(main='Sigmoid Growth')

我可以绘制情节，但我不知道如何获得未来的价值。假设我想预测未来 6 年的收入值。

Answer 1

y创建一个函数，并绘制（对plot函数有特殊支持）：

y <- function(x) 1/(1+exp(-x))
plot(y,-5,11,type="l",lwd=3)