slope code snippets in r

given a set of time series data find the slope in r