Nothing
context("ls_perio")
test_that("ls_perio periodogram works", {
data(dams_sample)
per <- dams_sample[,
ls_periodogram(activity, sampling_rate = 1/60),
by = id]
# ggetho::ggperio(per, aes(y = power - signif_threshold, colour=period_group)) + stat_pop_etho()
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.