mistakes corrections in fft.R
MAT_DOG1 calculated