data(gt1m_sample)
mw <- markwear.accfile(gt1m_sample, 20)
tsf <- tsFormat(gt1m_sample)
dateSummary(gt1m_sample, mw, tsf)
fileid days freq hour_day start_day end_day valid_mins IsStartDate
1 test 2011-12-08 3840 16.000 08 23 571.25 1
2 test 2011-12-09 5760 24.000 00 23 557.00 0
3 test 2011-12-10 5760 24.000 00 23 676.50 0
4 test 2011-12-11 5760 24.000 00 23 493.50 0
5 test 2011-12-12 5760 24.000 00 23 638.25 0
6 test 2011-12-13 5760 24.000 00 23 680.50 0
7 test 2011-12-14 5760 24.000 00 23 717.00 0
8 test 2011-12-15 5760 24.000 00 23 0.50 0
9 test 2011-12-16 750 3.125 00 03 0.00 0
IsEndDate IsTruncated
1 0 0
2 0 0
3 0 0
4 0 0
5 0 0
6 0 0
7 0 0
8 0 0
9 1 0
# at least 600 minutes per day to determine first and last day
dateSummary(gt1m_sample, mw, tsf, minval = 600)
fileid days freq hour_day start_day end_day valid_mins IsStartDate
1 test 2011-12-08 3840 16.000 08 23 571.25 0
2 test 2011-12-09 5760 24.000 00 23 557.00 0
3 test 2011-12-10 5760 24.000 00 23 676.50 1
4 test 2011-12-11 5760 24.000 00 23 493.50 0
5 test 2011-12-12 5760 24.000 00 23 638.25 0
6 test 2011-12-13 5760 24.000 00 23 680.50 0
7 test 2011-12-14 5760 24.000 00 23 717.00 0
8 test 2011-12-15 5760 24.000 00 23 0.50 0
9 test 2011-12-16 750 3.125 00 03 0.00 0
IsEndDate IsTruncated
1 0 1
2 0 1
3 0 0
4 0 0
5 0 0
6 0 0
7 1 0
8 0 1
9 0 1
Run the code above in your browser using DataLab