# NOT RUN {
data(dams_sample)
# only four individuals for the sake of the example
dt <- dams_sample[xmv(region_id) %in% c(1, 7, 21, 31)]
pdt <- periodogram(activity, dt, FUN = ls_periodogram, oversampling = 4)
pdt <- periodogram(activity, dt, FUN = chi_sq_periodogram)
# }
# NOT RUN {
require(ggetho)
ggperio(pdt, aes(colour=period_group)) + stat_pop_etho()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab