fft code snippets in r