powered by
guideline.bouts.min(mets)
guideline.bouts.num
data(second.by.second) mets <- second.by.second.data$mets guideline.bouts.min(mets) # summarize by date tapply(second.by.second.data$mets, second.by.second.data$date, guideline.bouts.min)
Run the code above in your browser using DataLab