testlist <- list(dum = c(862542340L, -491559288L, -624951432L, 816016739L, 2078376602L, 482182584L, -1284660842L, 1975479720L, 700951563L, 2048037716L, -778843135L, 909731250L, 468143159L, -1529745577L, 1049751220L, 1348164729L, 571049372L, 454619629L, -1413615902L, -145517550L, 987777503L, -1304873232L, -903568358L, 2130810017L, 169426469L, 825168605L, -335429661L, 1414788495L, 859795173L, 2024068674L, -914727864L, 2079386245L, 153660219L, 1472010307L, -1093196013L, 706519645L, 1527792595L, -1273424515L, -1821194737L, 1655739500L, -666917073L, -37784901L, -1768304960L, -1234166511L, -2141133515L, 2046472717L, 1819811023L, 682638080L, -253612051L, -1583175625L, 997718001L, -418118808L, 1978179054L, -498074801L, -938008848L, -933629512L, 991995356L, -1035136002L, -1005916244L, 519181459L, -625900867L, 8195272L, -1792362147L, -2086005314L, -893740403L, 128814028L, -1216710443L, 1837918535L, 1038812221L, 1745880829L, 985619133L, 1768913715L, 689291313L, -1035207303L, -965390541L, 28867134L, -1551926517L, -1887368758L, 1080264617L, -754721284L, 412954075L), Q = 467495432L, x = structure(c(8.54740332562179e+170, 5.04451954698312e-247, 8.08980575145225e-307, 2.29398643782599e+239, 4.2853267282121e-122, 2.04437797766806e-122, 2.80120497110943e+306, 3.67846220847657e-273, 7.13031288806914e-238, 2.26826065394075e-294, 1.69214887635963e-72, NaN, 1.54154212574147e-261, 1.75552992521395e+70, 2.86555489089896e+90, 4.82067410803116e+210, NA, 2.94576051165654e+186, 3.05508620742933e-115, -Inf, 2.44674583935188e+228), .Dim = c(7L, 3L))) result <- do.call(FENmlm:::cpp_tapply_sum,testlist) str(result)