testlist <- list(ct = 118805280L, design = structure(c(6.77801672019784e-61,  4.02883278934958e+82, 1.37085196308948e+166, 6.49238595839675e+224,  1.47759173860095e+143, 1.05926212750091e+69, 2.42001803049194e+54,  2.26741280992956e+104, 6.27440348502726e-62, 2.66026672532904e-251,  1.18795600833053e-216, 2.24371383759114e+115, 1.55722861612274e+234,  2.40647487261906e-78, 2.96154001181349e-179, 2.06460341013277e-90,  2.85352793714464e-137, 1.24663681163331e-33, 5.07852698549192e+212,  4.27062448099837e+251, 3.33956571050786e-305, 8.82759776575692e+208,  6.32727097150918e+43, 1.62942948893942e+287, 3.25349594504143e-58,  5.23732408792197e-77, 1.40524532376617e+109, 0.0027415258446282,  7.47790358181259e-305, 0.000847738670001724, 1.92871530416176e-182,  2.29110570662922e-102), .Dim = c(4L, 8L)), i1 = -2000042418L,      i2 = -1982129162L, theta = c(1.19923474558209e+165, 5.27901514942818e-206,      -1.91256540373894e+236, NaN, -3.47205999550953e-94, 5.68672733932533e-170,      3.12745890947746e-17, 4.24412641861253e+194, 1.06652799666835e+184,      -5.17218606134068e+179, NA, -6.76040673868956e+206, 3.32729012856178e-130,      2.04675579493348e-41, -4.69058162492734e+198, -8.22651218182651e-73,      -8.08138642486909e-76, -1.8789379489885e+269, -Inf, -5.14744829871637e+145,      -Inf, 3.85855238712517e-120, 3.17593602330385e+283, NA))
result <- do.call(activegp::W_kappa_ij,testlist)
str(result)