R Fourier Function