# NOT RUN {
data(dams_sample)
dt <- dams_sample[id %in% dams_sample[meta=TRUE, ,id[1:5]]]
spect_dt <- spectrogram(activity, dt)
# }
# NOT RUN {
require(ggetho)
ggspectro(spect_dt) +
stat_tile_etho() +
scale_y_log10() +
facet_wrap(~ id)
# }
Run the code above in your browser using DataLab