如何在eegkit包中进行逆傅立叶变换

问题描述

我需要根据示例中的数据进行逆变换。我还没有找到任何适合我的例子

set.seed(123)
x <- cumsum(rnorm(50))
plot(x,t="l")

library(eegkit)
spec <- eegfft(x,Fs = length(x))

frequency   strength phase.shift
1          0 1.15996224  0.00000000
2          1 1.07550972 -0.83034707
3          2 1.58816615  2.60912940
4          3 0.70896261 -0.60357494
5          4 0.39833201  2.48296389
6          5 0.57340102  2.64735017
7          6 0.36185079  2.98274956
8          7 0.08633505  0.71681734
9          8 0.20305410  1.01404565
10         9 0.30567978  0.48236594

我想要这样的东西

#inverse.fun <- ...... ??
# all( inverse.fun == x )  == TRUE

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）