如何从周期图中提取周期分量的方差

我已经将函数 spec.mtm 应用于我的数据，因为我读到它是一个很好的函数，用于计算周期图的偏差很小，这是代码：

identityValue()

通过这个图，我可以清楚地看到这些频率的一些周期性，但我必须选择更相关的那些，所以我想检查这些频率的谐波解释的总方差，并计算部分方差他们每个人。你知道 R 中是否有一些命令可以帮助你从这个周期图中获取这些信息，因为函数 spec.mtm 在内部计算快速傅立叶变换？

如果问题看起来太平庸，我很抱歉，我是 R 新手。