Displaying 1 result from an estimated 1 matches for "invenrse".
Did you mean:
intense
2008 Sep 30
1
fft inverse display help
...="month")
ob <- as.vector(s[c(10,22,34,46)] - as.Date("2005-01-01"))
oe <- as.vector(s[c(11,23,35,47)] - as.Date("2005-01-01"))
for(.index in 1:length(ob))
{
x[ob[.index]:(oe[.index] - 1)] <- 1
}
return(ts(x, frequency=365))
}
Then I take the invenrse:
fs <- fft(series)
fi <- fft(fs, inverse=TRUE) / length(fs)
plot(fi)
This as expected gives me back exactly what I put in. The x axis is label in Time and the y axis is labeled as 'fi'. Now if I try some filtering and select a few frequencies:
ff <- complex(length(fs))
sei <-...