testlist <- list(window = -2008914661L, x = c(-1193066448L, -1076894989L,  -162951783L, 1053675110L, NA, 1487476882L, -1731012322L, 1786797858L,  1671385634L, 1865684581L, 2107899835L, 1909268989L, -1782843411L,  1678737404L, -497542580L, -663064773L, 432103048L, -160108941L,  401420168L, -1169128113L, 192756848L, -1933874066L, 327662571L,  19539482L, -343628831L, -124693232L, 2122618936L, -736196640L,  -1681698777L, 2126288529L, 1129413700L, NA, 654460959L, -1818415343L,  566774261L, -422521471L, -1826248687L, -499211739L, -1893832182L ))
result <- do.call(accelerometry:::blockaves_i_max,testlist)
str(result)