numericDeriv（form [[3L]]，names（ind），env）中的错误：评估模型时产生的值缺失或无穷大

Question

我是R新手，试图将曲线拟合到同一张图中的4个非线性数据集。目的是查看是否有信号。差异每个数据集产生的任何行之间。数据如下： Db治疗时间（秒）

这是我不断收到的错误：

  

numericalDeriv（form [[3L]]，names（ind），env）中的错误：     评估模型时缺少值或产生无穷大

这是我目前对nls进行编码的方式

modnl <- nls(Db ~ m * (1 - exp(-a[Treatment]* Time - d[Treatment])), start = list(a = c(0, 0.1,0.1,0.1), d=rep(0.1,4),m=mean(dat$Db[which(dat$Treatment=='Control')], na.rm=TRUE)), data=dat)

and then summary(modnl)