请教一个R程序问题
给定初始P值；
While(|b1-a1|+…+|b6-a6|>0.001)
{
fit=function f(x, p);
fit1=[a1, a2,a3,a4,a5,a6]
b1=a1,b2=a2,b3=a3,b4=a4,b5=a5,b6=a6; #保存计算的六个参数
fit2=function g(x, a1,a2,a3,a4,a5,a6).###利用fit1计算的六个参数来计算p值
p=fit2
}
完成上面的循环后，保留最后一次的结果：即p, a1, a2,a3,a4,a5,a6
输出p, a1, a2,a3,a4,a5,a6