testlist <- list(bottomCand = c(1901417095L, 290945320L, 1725307528L, 1747460279L, -83704463L, 715859910L, 1141309412L, -1684414663L, -880625955L, -651229889L, 102745966L, 1206330690L, -353717228L, -1780753703L, -488980833L, 1357827612L, 1887762761L, -1275164487L, 491726948L, NA, 945436109L, 906995480L, -379209926L, 1401247427L, 156175549L, 1301575274L, -476131815L, -327927260L, -814747387L, 2123898216L, -36396464L, 1526207331L, 1193222292L, -1281884522L, 902606881L, 1089094927L, 1496782039L, -818855987L, 115416416L, -651050208L, 1357165572L, 2075302576L, 2118832831L, 873975437L, 1323525406L, 346352410L, -2046264737L), minLength = 1827680409L, probVec = c(1.91698338082271e-80, 2.93871033907185e+294, 6.23890285463427e-80, 4.73594416852843e-68, 1.92374608756283e+304, 5.22278042553461e+77, -2.97932406633684e-194, -2.68155229469859e-130, -2.8443541465211e-188, -1.37830165814193e-303, 9.46138801054663e+185, 3.43512439634007e-26, -2.80408356385423e+194, -2.69315621855967e-264, 8.88375296519136e+93, -1.28149993449481e+192, -1.05378635096144e+270, 9.9348541420566e-272, -4.49673024853768e-166, 1.08790490440457e-197, -1.2041029401751e+269, 5.69436160505039e+304, -4.31279914103383e+297, -8.50762375722852e-293, 8.10981151245745e+266, 5.79154874698599e-162, -1.52841548347558e+202, 1.08404704783176e-287, 6.87024100783927e+274, -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252, 5.33405194998669e-300, 3.76872630433678e+222, -9.97306573534695e-54, -2.72162996958946e-171, NaN, -1.05877353233728e+151, 2.42723774121938e-180, 2.71379408558098e-129, Inf, -3.92218442701392e+180, 3.87644683863415e+40, 3.76872630433678e+222, 2.1613714735693e-216, -1.24268282218984e+93, -Inf, 3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49, -1.25757101230842e+73, 0), T = 467495432L, topCand = c(-625900867L, 8195272L, -1792362147L, -2086005314L, -1005916244L, 128814028L, -1216710443L, 1837918535L, 1038812221L, 1745880829L, 985619133L, 1768913715L, 689291313L, -1035207303L, -965390541L, 28867134L, -1551926517L, -1887368758L, 1080264617L, -754721284L, -1005916244L, -383101777L, -1616649568L, 1532813054L, -614856085L, -619498212L, 1992082761L, -1079884072L, 1081324329L, -1643653059L, -1413816826L)) result <- do.call(unsystation:::funcSEMat,testlist) str(result)