打开R,注意要把该安装的函数包都安装一下,然后用nls函数做非线性回归
例如:估计非线性回归统计模型
步骤:
#读取数据并查看
f<-read.csv(file="D:/XXX.csv")
f
#做出x与y之间的散点图
plot(f$y~f$x)
#利用nls函数估计β1、β2
nls(f$y~1/(β1+β2*exp(-f$x)),data=f,start=list(β1=1,β2=1))
#添加非线性回归线
y<-f$y
x<-f$x
f<-function(β1,β2,x){1/(β1+β2*exp(-x))}
f.1<-function(x){f(带入估计出的β1,β2,x)}
curve(f.1,add=T,col="red")