segmented-regression code snippets in r