看你到底在问什么还是有点困难。如果你在询问如何处理异常情况,最好还是浏览问题解答。
Cross Validated
. 这个网站太宽了。
但是,如果你问你为什么在你的情节中会有这样的小碰撞,以及如何去除它,我想我可以帮你。
称之为离群值并不完全正确,它更像是傅立叶变换的产物。因为你的信号有点小
DC offset
避免这种假象的方法就是消除这种直流偏移。消除它的最简单的方法是均匀地移动整个信号,使平均振幅为0。这通常是足够的,但有时你将不得不去趋势的信号或应用高通滤波器。
set.seed(1)
sig1 <- sample(c(rnorm(1e4), rnorm(500, 1, 1)))
ft1 <- fft(sig1)
sig2 <- sig1 - mean(sig1)
ft2 <- fft(sig2)
yl <- c(-280, 430)
par(mfrow=c(2, 1), mar=c(2, 3, 0.1, 0.1))
plot(Re(ft1)[1:(length(ft1)/2)], type="l", ylim=yl, xlab="", ylab="Original")
plot(Re(ft2)[1:(length(ft2)/2)], type="l", ylim=yl, xlab="", ylab="Centred")