r - 将 nls 函数与 R 中的 apply 函数一起使用

Question

感谢您的初步回复。

假设，我有一个矩阵；

X<-matrix(c(1:180),nrow=3)

如果我想使用 apply 函数将以下 nls 函数应用于每一行。

nls(
    k ~ a0 - a2*sin(((pi*0.01)/5)*t + phi1) + a4*sin(((2*pi*0.01)/5)*t + phi2) - a6*sin(((3*pi*0.01)/5)*t + phi3),
    data = X,
    start = list (a0=0.01,a2=0.01,a4=0.01, a6=0.01, phi1=0.21,phi2= -0.10, phi3=0.35)
   )

我该如何编程？同样，由于k响应变量直观地是上述矩阵的行。