fft.R code submit