testlist <- list(cumuprobs = c(2.59208973630206e-42, 2.6072267553008e+99,  -2.72162996958946e-171, 2.6072267553008e+99, -1.05877353233728e+151,  NaN, 2.71379408558098e-129, -2.99574316180368e+172, -3.92218442701392e+180,  3.87644683863415e+40, 2.87529519465824e-21, 2.1613714735693e-216,  -1.24268282218984e+93, Inf, 0), newstates = 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), origin = 467495432L, sMatrix = structure(c(2.2847880234247e-39,  6.88540996260128e-24, -9.77937136970318e+240, 5.49818530934309e-129,  NA, 4.46775288698349e-52, 2.34419089012109e+41, 1.96571359911086e-10,  1.01311700730438e-25, 9.04432220955322e-111, NA, 3.84221017767163e+137,  156.239480502656, 4.09312671255326e-190, 1.50782817043972e+156,  3.86714308176021e-132, 9.05953676693192e+263, 315.197660475391,  9.02784301653217e+97, 2.000900890852e-202, 5.48910606063961e+71,  4.3783470254587e+175, 8.67784997817019e+237, 2.40436941964534e+187,  1.22849737774297e-284, Inf, 7.46476411490754e-56, 3.50142333452469e-279,  4.14583933980202e-207, 2.81605632700111e-168, NaN, 1.65119710311421e-167,  3.08098979811584e-37, 8.58457394315084e-200, 7.70357133424141e-264,  5.56176412898788e-172, 8.8757758931406e-75, 3.26907598545528e-298,  4.04055052678789e+34, 1.53352587612782e-49, 5.96019887888826e+121,  1.54477333812334e-275, 4.90960080611232e+81, 2.24541576981577e+300,  1.07087442450951e+72), .Dim = c(9L, 5L)))
result <- do.call(ibmcraftr:::stateT,testlist)
str(result)