testlist <- list(ivar = -860301243L, lr = structure(c(1.42670750816145e+298,  1.24636520920093e+230), .Dim = 2:1), X = structure(c(4.37568599549622e-228,  1.86899569486909e+120, 7.1534812981841e+39, 5.5924487086511e+39,  3.52487230035154e+73, 3.76298947630782e-138, 2.68336091404724e-251,  3.56238603445509e+118, 1.08786866508006e-166, 2.68568562977805e+60,  5.11606011030413e-242, 1.0559958422732e+65, 2.59496833611614e-255,  1.50241355296305e-225, 5.36827426910107e+31, 7.16973801863194e+60,  1.37044344943663e+122, 1.66246420947502e+68, 1.70694216236854e+252,  8.35113245227843e+40, 7.88881786096636e+173, 3.21314161927179e-202,  2.44800857023237e+189, 3.87107173279182e+190, 5.925805599716e-204,  1.07454158503074e+194, 1.20533322375579e-14, 1.90526535681288e-103,  1.28338394030972e+69, 1.18104638034471e-88, 2.3517847505248e+185,  3547634813913.43, 3.16332841273839e+127, 7.72195217713776e+241,  5.60912230161634e-84, 8.212123066536e-275, 6.444777506761e+129,  1.20037331761918e-276, 2.52088552495954e+78, 4.06672298480402e-197,  1.20779702322127e+37, 7.64709699730602e+158, 2.82678807413239e+141,  5.15696520748763e-182, 335483309.804311, 1.21114823876371e-159,  1.41068646792438e-67, 1.14140581345638e+292, 2.69826754185848e+276 ), .Dim = c(7L, 7L)))
result <- do.call(propr:::rhoRcpp,testlist)
str(result)