rm(list=ls(all=TRUE))
data7.2<-read.delim("Exercise7.2.txt",header=T)
y<-data7.2[,2]
t<-data7.2[,1]
model<-nls(y~k*(a^(b^t)),start=list(a=0.5,b=0.5,k=10000),lower=c(0,0,10000),upper=c(1,1,10000),algorithm="port")
提示 参数初始估计值里有奇异梯度矩阵
是哪里有问题？