The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

excursion function

excursion

Overview

Calculates glucose excursions: >70 mg/dL rise within 2 hours, not preceded by a value <70 mg/dL.

Inputs

Returns

Run documented examples

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"

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.