data(hordeum)
# \donttest{
modHTTLL.M <- drmte(nSeeds ~ timeBef + timeAf + water + temp,
data=hordeum,
fct = HTTLL.M(),
start=c(832,-2.5, -3, 0.07, 3, 0.5))
summary(modHTTLL.M)
modHTTLL.BS <- drmte(nSeeds ~ timeBef + timeAf + water + temp,
data=hordeum,
fct = HTTLL.BS(),
start=c(932,-2.5, 15, -3, 0.07, 3, 0.5))
summary(modHTTLL.BS)
# }
Run the code above in your browser using DataLab