后来我参考了这个网页中的nls做法
http://blog.sina.com.cn/s/blog_8eee7fb60101g25j.html
先简单练习了一下
Fit<-as.list(Fitting) //Fitting是我读进的两行数据 一开始是data fram再变成list
x<-Fit[1] //把数据第一行第二行放进x,y中 有确认过x,y的确有放进资料
y<-Fit[2]
f=function(x){x+1}; //随便写的function 只是想做测试
Curve2<-nls(Fit$y~f(Fit$x),data=Fit)
但是仍然会出现错误
> Curve2<-nls(Fit$y~f(Fit$x),data=Fit)
Error in terms.formula(formula, data = data) :
invalid model formula in ExtractVarsIn addition: Warning messages:
1: In min(x) : no non-missing arguments to min; returning Inf
2: In max(x) : no non-missing arguments to max; returning -Inf
实在不是很确定nls该怎么用~~