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