if (FALSE) {
## get file path from example data
path_example <- system.file("example_cosmed.xlsx", package = "whippr")
## read data
df <- read_data(path = path_example, metabolic_cart = "cosmed")
## interpolate and perform 30-s bin-average
df %>%
interpolate() %>%
perform_average(type = "bin", bins = 30)
## interpolate and perform 30-s rolling-average
df %>%
interpolate() %>%
perform_average(type = "rolling", rolling_window = 30)
}
Run the code above in your browser using DataLab