testlist <- list(ct = -1629726308L, design = structure(c(4.73747761328795e-169, 4.09043542547637e-156, NaN, 3.52891274307287e-232, 4.00054722785245e-33, 3.47783140665292e+91, 9.89143373102273e+138, 5.28069898443773e+213, 6.29396952987517e+127, 3.01639054230534e+29, 1.27605984319893e+230, 5.75128063446593e-144, 3.4428130616263e+104, 1.03713003034621e-273, 4.55291510879146e-259, NA, 5.66721776438559e-283, 9.38773418542375e-263, 9.78576536124463e-195, 3.04085184318083e-242, 1.44410256417307e+304, 3.7345160519315e-111, 2.17299610080436e+21, 1.59282178541486e+154, 1.69996745086409e-175, 3.4714223147187e-168, 4.20253922070524e+95, 1.28707048961695e+96, 2.63629862030301e-255, 5.49133422769824e-205, 6.29698838362888e-236, 1.18236308575653e+194, 6.4482006288965e+193, 8.73593568404816e+201, 1.04452072155086e+294, 4.13647033923369e+108, 4.66629329470903e-251, 9.88393591625731e+153, 4085124.40310226, 1.42847526774653e-170, 1.13080986986007e+208, 5.09186254039986e-166, 9.70198027327725e-18, 1.3904128662537e-123, 2.84368818516136e-238, 1.46451836766011e-61, NA, 1.88048721661512e-155, 0.000358739820321502, 8.21225807179165e-187, 2.43009351728287e+179, 4.13171766194614e-26, 5.26555335925835e+297, 1.11702164650388e+208, 7.54961769386618e-100, 1.0551067786188e+179, 2.09680465419513e-269, 3.9057824292585e+76, 7.00021587091202e-177, NaN, 6.84920509374724e-173, 4.13169274588366e-150, 230.486097662642, 5.92062616165771e+280, 1.8815968413895e+229, 8.53372245793148e+223, 8.20154941420592e-271, 1.8191923562766e+305, 1.50719925072051e+253, 1859.19635664032, 1.682011841893e+213, 1.14527317882374e+246, 8.35287479970053e-134, 5.823592020637e+141, 2.21720536515862e-294, 1.59888291336315e-63, 1.16763287615492e-182, 8.10862956516459e-168, 8.6043533558349e+279, 2.89071625346359e+291, 1.57414256791726e+306), .Dim = c(9L, 9L)), i1 = 1785574913L, i2 = -2062724642L, start = -967000387L, theta = c(2.40792997496163e+278, 1.06973649999904e+79, -3.05882278674523e-173, -3.03976704785355e-137, 8.61880295204389e-55), W = structure(c(7.86218849558251e+96, 6.57684778288058e-265, NA, 3.25069102664982e-76, 2.06781639271292e+21, 1.14427186114757e+25, NA, Inf, 3.00408344002739e+142, 3.16528624357795e-77, 1.32626508360103e-207, Inf, Inf, 5.78660840138934e+63, 6.88269078692699e+77, 1.3432840385245e-172, 1.33133737932955e-21, 3.79325018983509e-87, 0.696194303913477, 1.66892398734842e+157, 4.91889456358059e+286, 1.06628380838757e-83, 4.6212243090561e+72, 5.01627224312403e+160, 3.82615067939364e+185, 7776801735130.33, 4.67109736560306e-254, 1.83861498972358e-260, 7.59331273783275e+75, 1.74098014077406e+38 ), .Dim = 6:5)) result <- do.call(activegp::W_kappa_ij_up,testlist) str(result)