testlist <- list(ct = -840820699L, design = structure(c(NA, -Inf, -Inf, NA,  -Inf, 1.55275352858005e+40), .Dim = c(1L, 6L)), Ki = structure(c(6.55160269216617e+148,  NA, NaN, 1.35823942412017e+206, 0.00262450907355171, 8.92101399483248e-120,  3.98660379890471e-123, 6.98635352868267e-152, 2.69479537047634e-277,  NA, 1.36891759114459e-160, 1.04259794139381e+173, NA, 6.9991158553053e+226,  1.61070791421529e-259, 1.7145103328706e+148, 763234651981686784,  5.81875171108527e+271, 2.72594458754739e-127, 1.70213245009796e-294,  1.53634854427622e+73, 3.64158466866061e+76, 5.96396806005107e+152,  6.76004274516991e-54, 5.16967827297213e+132, 2.58980001031516e+103,  4.67768173498895e+204, 2.44510914373256e+102, 5.21156869684757e-161,  2.4218175921009e-150), .Dim = 6:5), response = c(-5.02291637596725e+117,  -5.72941592499415e+144, 3.57163680144006e+306, 5.1074502371164e-90,  -2.60609401675829e-23, -1.01324304677219e-174, 1.23214175407772e-272,  -2.47342710164104e+92, 1.60773784325527e-28, -2.4671181621373e+282,  1.54162529563486e+153, 1.27626918971496e-286, NA, 5.05723775065159e-294,  2.12400470318687e-163, -9.51322527977542e-197, 3.19247409491708e-184,  NA, NA, 1.80254340298381e+45, -1.19984617346502e-167, NaN, -2.85375313625005e-285,  -4.96181582679852e+212, 2.93452688424718e+51, -3.48461004441606e-264,  -2.09114629438106e-209, 2.70314661994904e+165, -4.35122767000865e-245,  -4.7888039998992e-91, -6.156071458036e-134, 1.58392495589908e+299,  1.75992208404568e-188, 2.92513266167968e-276, 2.05443988553919e-194,  -8.74339335425147e-139, 3.22331413379946e-237, 6.20751978617475,  8.2741183176495e+256, 6.67259751396664e+42, 1.74060816995693e+94,  -10461517900.5758, 8.21606235820788e-152, 2.27704808300536e+266,  1.32765433246678e-258, -6.5879078243921e-221, -4.94509055290786e-161,  8.46074917608266e+220, 0), theta = c(-1.3485238903537e+122, 1.767764747395e+51,  6.26373335504106, -9.96287210231791e-111, -8.23755216048711e+198,  -9.01896132453219e-271, 7.90107437849377e-59, -7.51099451765329e-234,  -9.32148991810111e-62, 2.6629741047074e-21, 2.85695391760371e-49,  4.90457643113392e-204, -1.30849503516874e-253, -1.07332665856543e-20,  -8.85386441082672e+100, -5.65012835516949e+262, 3.67043106586066e+302 ))
result <- do.call(activegp::C_GP_cpp,testlist)
str(result)