b0 +
b1*(1-exp(-exp(lrc) * x)
to the xy
data.
This can be used as a building block in determining starting estimates
for more complicated models.NLSstAsymptotic(xy)
sortedXyData
objectb0
,
b1
, and lrc
. b0
is the estimated intercept on
the y
-axis, b1
is the estimated difference between the
asymptote and the y
-intercept, and lrc
is the estimated
logarithm of the rate constant.SSasymp
Lob.329 <- Loblolly[ Loblolly$Seed == "329", ]
print(NLSstAsymptotic(sortedXyData(expression(age),
expression(height),
Lob.329)), digits = 3)
Run the code above in your browser using DataLab