R SSgompertz 自启动 NLS Gompertz 增长模型

说明

此 selfStart 模型评估 Gompertz 增长模型及其梯度。它具有 initial 属性，用于创建参数 Asym 、 b2 和 b3 的初始估计。

用法

SSgompertz(x, Asym, b2, b3)

参数

x	用于评估模型的数值向量。
Asym	表示渐近线的数字参数。
b2	与 x = 0 处的函数值相关的数字参数
b3	与 x 轴的比例相关的数字参数。

值

与 input 长度相同的数值向量。它是表达式 Asym*exp(-b2*b3^x) 的值。如果所有参数 Asym 、 b2 和 b3 都是对象的名称，则相对于这些名称的梯度矩阵将作为名为 gradient 的属性附加。

例子

DNase.1 <- subset(DNase, Run == 1)
SSgompertz(log(DNase.1$conc), 4.5, 2.3, 0.7)  # response only
local({  Asym <- 4.5; b2 <- 2.3; b3 <- 0.7
  SSgompertz(log(DNase.1$conc), Asym, b2, b3) # response _and_ gradient
})
print(getInitial(density ~ SSgompertz(log(conc), Asym, b2, b3),
                 data = DNase.1), digits = 5)
## Initial values are in fact the converged values
fm1 <- nls(density ~ SSgompertz(log(conc), Asym, b2, b3),
           data = DNase.1)
summary(fm1)
plot(density ~ log(conc), DNase.1, # xlim = c(0, 21),
     main = "SSgompertz() fit to DNase.1")
ux <- par("usr")[1:2]; x <- seq(ux[1], ux[2], length.out=250)
lines(x, do.call(SSgompertz, c(list(x=x), coef(fm1))), col = "red", lwd=2)
As <- coef(fm1)[["Asym"]]; abline(v = 0, h = 0, lty = 3)
axis(2, at= exp(-coef(fm1)[["b2"]]), quote(e^{-b[2]}), las=1, pos=0)

作者

Douglas Bates

也可以看看

nls , selfStart