testlist <- list(KPs = structure(c(7.74142569486155e-62, 7.17236271424159e-70,  7.73849668086059e+74, 1.64169747916149e+49, 2.9922774697739e-184,  2.94589240548623e-179, 1.05809686435309e-32, 2.89224029021602e-63,  5.01897807036798e+256, 2.76031849149858e-55, 2.06490776419436e-263,  2.99504712765583e+148, 1.87208102466386e+263, 9.75878143223653e-306,  9.69769692162179e+25, 7.73957635116108e+303, 2.58083274433228e+302,  1.429864807068e-245, 2.19344529700892e+271, 2.89013193177073e+247,  3.61121421217165e-147, 2.40852303534519e+76, 3.89766000638726e-181,  2.05642456316089e+91, 2.08199828035596e-31, 5.73850062196528e+79,  2.81147026281276e-44, 3.40946929685531e-80, 1.29473525056992e+178,  7.0120313219095e-95, 4.68407762212439e-79, 2.80565495336961e-205,  1.04396743560503e+203, 4.78615662622475e-181, 5.91397709359131e+305,  1.76854144885262e-132, 1.23268718733499e+283, 3.16215055002294e-241,  9.96928527122852e+275, 2.28803481615225e-120), .Dim = c(4L, 10L )), OcSBaserate = -2.07432620502251e-66, OcSLength = -2099952375L,      replicates = -1145324548L, ScSKappaMin = 1.52396031139925e-290,      ScSKappaThreshold = 1.79818190222427e-99, ScSPrecisionMax = -6.1202160392041e+40,      ScSPrecisionMin = -9.9915502818667e-42, testSetBaserateInflation = 1.96910469731595e-266,      testSetLength = 1405953027L, x = 3.81937922967812e-142)
result <- do.call(rhoR:::calcRho_c,testlist)
str(result)