Использование функции nls вместе с функцией apply в R

Question

Спасибо за первоначальный ответ.

Предположим, у меня есть матрица как;

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

Если я хочу применить следующую функцию nls к каждой строке, используя функцию apply.

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 переменная отклика - это интуитивно понятные строки приведенной выше матрицы.