example(excursion, package = "cgmguru", run.dontrun = FALSE)
#> 
#> excrsn> # Load sample data
#> excrsn> library(iglu)
#> 
#> excrsn> data(example_data_5_subject)
#> 
#> excrsn> data(example_data_hall)
#> 
#> excrsn> # Calculate glucose excursions
#> excrsn> excursion_result <- excursion(example_data_5_subject, gap = 15)
#> 
#> excrsn> print(paste("Excursion vector length:", length(excursion_result$excursion_vector)))
#> [1] "Excursion vector length: 1"
#> 
#> excrsn> print(excursion_result$episode_counts)
#> # A tibble: 5 × 2
#>   id        episode_counts
#>   <chr>              <int>
#> 1 Subject 1              9
#> 2 Subject 2             14
#> 3 Subject 3             11
#> 4 Subject 4             17
#> 5 Subject 5             34
#> 
#> excrsn> # Excursion analysis with different gap
#> excrsn> excursion_30min <- excursion(example_data_5_subject, gap = 30)
#> 
#> excrsn> # Analysis on larger dataset
#> excrsn> large_excursion <- excursion(example_data_hall, gap = 15)
#> 
#> excrsn> print(paste("Excursion vector length in larger dataset:", length(large_excursion$excursion_vector)))
#> [1] "Excursion vector length in larger dataset: 1"
#> 
#> excrsn> print(paste("Total episodes:", sum(large_excursion$episode_counts$episode_counts)))
#> [1] "Total episodes: 111"