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