testlist <- list(counts = c(-529147364L, -2123569548L, -1116135109L, 63773486L,  -299195706L, -1705405059L, -1548682400L, 706518026L, -1837750765L,  -502495287L, 781707569L, 1694785363L, 788666825L, 1538148350L,  1598185353L, 1593545712L, 1908015956L, -964026892L, NA, 193321530L,  -2014051102L, -1572085503L, -1925149973L, 991878316L, -656473954L,  1780388748L, 632886064L, 1055747014L, -512776060L), thresh = -1512734874L,      weartime = c(-460261946L, -6468935L, -252238545L, -550308595L,      -252238545L, 1471711015L, -278193184L, 1648365382L, -805040945L,      -1588164408L, 646494469L, -1146219524L, 1411787691L, -558705970L,      502181503L, 784188927L, -1043149214L, 676801358L, -538684262L     ))
result <- do.call(accelerometry:::sedbreaks_flags,testlist)
str(result)