## Not run:
# library(intubate)
# library(magrittr)
# library(minpack.lm)
#
# ## ntbt_nlsLM: Standard 'nls' framework that uses 'nls.lm' for fitting
# DNase1 <- subset(DNase, Run == 1)
#
# ## Original function to interface
# nlsLM(density ~ Asym/(1 + exp((xmid - log(conc))/scal)),
# data = DNase1,
# start = list(Asym = 3, xmid = 0, scal = 1))
#
# ## The interface puts data as first parameter
# ntbt_nlsLM(DNase1, density ~ Asym/(1 + exp((xmid - log(conc))/scal)),
# start = list(Asym = 3, xmid = 0, scal = 1))
#
# ## so it can be used easily in a pipeline.
# DNase1 %>%
# ntbt_nlsLM(density ~ Asym/(1 + exp((xmid - log(conc))/scal)),
# start = list(Asym = 3, xmid = 0, scal = 1))
# ## End(Not run)
Run the code above in your browser using DataLab