将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响应变量直观地是上述矩阵的行。