You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
X <- data # insert accelerometry time series data here
eps <- 5 # insert sampling interval in second(s), this value is 5 in Suibkitwanchai et al. (2020)
Delta <- 60 # subsampling period as a multiple of eps (set as a positive integer, value of 1 corresponds to no subsampling and value of 60 chosen in Suibkitwanchai et al. (2020))
## preliminaries
N <- length(X)
nh <- (60*60)/eps # number of ENMO values per hour
nd <- 24*nh # number of ENMO values per day
## Intradaily variability (IV)
Y <- matrix(NA, nrow = Delta, ncol = floor(N)/Delta)