Nothing
context("test-pat_aggregate")
test_that('Alternative aggregation', {
data("example_pat")
# Test aggregation settings to test default settings
expect_true(identical(
pat_aggregate(example_pat,
FUN = function(x) mean(x,na.rm = TRUE)),
pat_aggregate(example_pat,
FUN = function(x) mean(x, na.rm = TRUE),
unit = 'minutes',
count = 60)
))
})
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.