# 自定义函数
f = function(x,a,b,c,d){
(a*x^2+b*x+c)*sinpi(x-1.5)+d
}
# dt是实现导入的数据,有2列,x和y
m.2 <- nls(y ~ f(x,a,b,c,d), data = dt, start = list(a = 0, b = 0,c=0,d=0), trace = T)
# 展示abcd的参数拟合结果
summary(m.2)
# 简单画出拟合的曲线
plot(x,f(x,0.009507576,0.229666667,1.089791667,45.485875000))
函数拟合时,自定的函数用最小二乘法计算出参数结果。