fourier transform code snippets in r