nls code snippets in r

fit a function to data in r