if (FALSE) {
path <- system.file("testdata", "test.db", package = "mpathsenser")
db <- open_db(NULL, path)
moving_average(
db = db,
sensor = "Light",
cols = c("mean_lux", "max_lux"),
n = 5, # seconds
participant_id = "12345"
)
close_db(db)
}
Run the code above in your browser using DataLab