data(bot)
ef <- efourier(bot@coo[[1]], 24)
rf <- efourier(bot@coo[[1]], 24)
harm.pow(ef)
harm.pow(rf)
plot(cumsum(harm.pow(ef)[-1]), type="o",
main="Cumulated harmonic power without the first harmonic",
ylab="Cumulated harmonic power", xlab="Harmonic rank")
Run the code above in your browser using DataLab