Perform nonlinear regression with nlsLM within a function in r

Question

I want to add a modification factor to an existing equation to fit data. The original equation is defined through a function because the variable N_l is a vector of