r - パラメトリック方程式をデータに当てはめる

Question

私は自分のデータを使用してこの方法論を実装します。 既知の方程式をデータに当てはめます。xの異なる間隔に対して6つの異なる方程式があります。

以下は、方程式に適合するために使用している関数です

Func <- function(t,t1,t2,t3,t4,t5,t6,a1,a2,a3,a4,a5,a6,b1,b2,c1,c2,c3,c4,c5,c6){
  if(t<t1){
    t*0
  }
  else if(t>=t1&t<t2){
    a1*t+c1
  }
  else if(t>=t2&t<t3){
    a3*t+c2
  }
  else if(t>=t3&t<t4){
    a3*t+c3
  }
  else if(t>=t4&t<t5){
    a4*t**2 + b1*t+c4
  }
  else if(t>=t5&t<t6){
    a5*t**2 + b2*t+c5
  }
  else if(t>=t6){
    a6*t+c6
  }
}


plot(t,w)
curve(Func(t,1.4,14.4,41.8,60.3,194.3,527,0.0022,0.0029,0.0016,0.00001,0.00001,0.0168,0.0001,-0.0006,0.0063,-0.0433,-0.0022,0.00408,0.2337,-5.3732),add=TRUE)

曲線関数の実行中にエラーが発生しました:

Error in curve(Func(t, 1.4, 14.4, 41.8, 60.3, 194.3, 527, 0.0022, 0.0029,  : 
  'expr' must be a function, or a call or an expression containing 'x'