後來我參考了這個網頁中的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該怎麼用~~