testlist <- list(counts = c(-240711772L, 1655070787L, 1270485088L, -1354341770L,  403344135L, -231281443L, 806895527L, -683517495L, -379556533L,  114200402L, -2002800072L, -451629314L, 507053328L, 1878125983L,  153896673L, 1856023128L, 1549063L, -449685138L, -787765577L,  525645117L, -1917170179L, -1405444939L, 1726191317L, -2092946045L,  1490061885L, 65252308L, -296645875L, -1522513357L, -73977689L,  -775136200L, -1343025870L, 859485835L, 172017933L, 611639826L,  -965926805L, -1368744279L, 47075539L, -1683223734L, -1625784877L,  1379098205L, 1931963031L, -1672697246L, -1161114264L, 879497526L,  2009006770L, 219488429L, 782073984L, -790700733L, 105438114L,  -1803221938L, 1339143811L, 1036499576L, 683953462L, -647109881L,  174295258L, 1097145927L, NA, 2129498317L, -1085845252L, 235566135L,  -826118744L, 793816890L, -1288235788L, -1657652150L, 723881129L,  320698066L, 1690816114L, -784094816L, 85346356L, 1727491609L,  797118156L, -1253435679L, 1872988802L), thresh = 582648485L,      weartime = c(780806046L, 766648557L, -1284173445L, -1733815042L,      -397514434L, -821494968L, 382922919L, -1234899227L, -283802852L,      -1847299002L, 404485552L, -1022710101L, 1477962279L, 551907382L,      -1218388370L, -976464972L, -506015575L, 2044339090L, -166116679L,      -1847299002L, 139436584L, 873619436L, 1933400632L, 162393322L,      -2084793348L, -1749578099L, -791591181L))
result <- do.call(accelerometry::sedbreaks,testlist)
str(result)