Datafra <- data.frame(t=c( 2, 4,6 ,24 ,28 ,30 ,36 ,44 ,48,50,52,72,74,76),y=c(2,2.7,2,2,3,5,6,7,7.2,7.4,8,8.1,7.9,8.1))
Datafra


weighted.MM.grad <- function(t,y,umaxec,landa, ymax)
{
  dy.dt=(umaxec/(1+exp(-4*(t-landa))))*(1-exp(y-ymax))
}
umaxec <- 1
landa <-1
ymax<-20
Pur.wt.grad <- nls( ~ weighted.MM.grad(t,y, ymax,landa,ymax),
                   data = Datafra , start = list(umaxec = 1, landa = 1,ymax=20),algorithm = "port")

Error in nlsModel(formula, mf, start, wts, upper) :
  参数初始估计值里有奇异梯度矩阵

怎么处理？我就行拟合估计一下参数