testlist <- list(aj1T = structure(c(1.75791535997911e-205, 7.48226058746356e+305, 3.48153344556441e+131, 2.29120323961624e+95, 2.82866039637991e-06, 2.97623531572886e-122, 824.390142555417, 1.29614474658195e-52, 1.15643317891371e-242, 8.34036293561009e+47, 3.25960764677501e-54, 6.78915880193653e-50, 8.44333978180821e+27, 5.92176820656485e-111, 3.76493057027069e+189, 5.88490057684695e+88, 3.37095583958778e-50, 3.15875903762907e-229, 7.23859924914042e-253, 5.66464117788221e-188, 2.36641406701421e-240, 5.06530702179836e-228, 1.18829546376131e-220, 9.89215539168946e-285, 1.16789338261636e+176, 4.36050247205264e+95, 3.26747509180017e+135, 8.11714566448862e+179, 1.27913311894252e+217, 1.73151868081772e+211, 5.8267951073054e-249, 4.90674285355723e-178, 1.46129245476423e+128, 4.77386895112696e+227, 7.6964546198172e+167, 4.81949128120691e+169), .Dim = c(9L, 4L)), base = -333696320L, eps = 2.46116306023284e-269) result <- do.call(equateMultiple:::ipfRcpp,testlist) str(result)