
Last chance! 50% off unlimited learning
Sale ends in
an, bn (and eventually cn and dn)
, returns the harmonic power.harm.pow(xf)
vector
of harmonic powerdata(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