data(second.by.second.data)
posture <- second.by.second.data$ap.posture
step.min.AP(posture,epoch=1)
# summarize by date
tapply(second.by.second.data$ap.posture, second.by.second.data$date,step.min.AP,epoch=1)
Run the code above in your browser using DataLab