testlist <- list(dum = c(484058222L, -835858507L, 1668042617L, 338649647L, 214710137L, -1134095747L, -1787462247L, 328695087L, 1906416959L, -831654863L, -649876499L, 1913461887L, -648742763L, -1156967856L, 2140137874L, 644268439L, 123721430L, -859175003L, 246583936L, -1079050344L, 49753534L, 37686913L, -822602508L, 1591053158L, 878787584L, 742630714L, -164119883L, -423997720L, -1317296461L, -1145752183L, -1387692533L, 503935315L, 1806521239L, -235286041L, 814455830L, 1173028855L, 1722133025L, 1524607495L, 673715015L, 847551133L, 854406179L, -435877353L, -1868157482L, -1859334665L, -763946964L, 1472345215L, -347617763L, -882853123L, 1324228660L, -215331965L, -780576414L, -1524213385L, -1636719371L, 869823518L, 523975658L, -1678382871L, -486007082L, 862542340L, -491559288L, -624951432L, 816016739L, 2078376602L, 482182584L, -1284660842L ), Q = 467495432L) result <- do.call(FENmlm:::cpp_table,testlist) str(result)