powered by
prolonged.sed.bouts.num(posture, epoch = 1, n)
prolonged.sed.bouts.min
data(second.by.second.data) posture <- second.by.second.data$ap.posture # estimate number of sedentary bouts lasting at least 60 minutes prolonged.sed.bouts.num(posture,epoch=1,n=60)
Run the code above in your browser using DataLab