# NOT RUN {
set.seed(987)
testMatrix <- matrix(sample(1:10, size = 25, replace = TRUE), nrow = 5)
D <- dftMatrix(5)
# Discrete Fourier transform with matrix multiplication:
D %*% testMatrix
# Discrete Fourier transform with function fft:
apply(testMatrix, MARGIN = 2, FUN = fft)
# }
Run the code above in your browser using DataLab