testlist <- list(points = structure(c(3.10045080631114e-140, 5.64837120621297e+125, 4.06956751982026e+95, 6.59400621480488e+135, 1.18393360738069e-272, 5.35892842952669e-173, 2.86977581121643e-15, 2.2386738721768e+270, 2.98853116521547e+143, 3.08420528117937e+276, 3.33889424831818e-239, 2.00058425814441e-113, 2.46562043224079e-85, 1.89261876993418e-113, 1.78433108967668e+169, 9.46801839280429e-51, 2.48283345537456e-176, 8.21195771569161e+288, 4.5560582271321e+117, 1.0797329973067e+245, 3.91726596706926e-283, 2.36534175024629e+188, 4.62886637564784e+149, 1.95531992383552e-132, 2.24216371882707e+243, 3.15962229513625e-133, -Inf, 1.03502208669886e-277, 1.44329558427272e+189, 2.15560984776751e+185, 1.75933361941065e-114, 8.24221549962438e-287, 6.79398327699747e+55, 7.20263011526498e+40, 3.80926860974838e-156, 1.33550472691882e+204, 2.62538996893194e+129, 6.8576940616979e-16, 1.98743400939048e+154, 1.51886024823543e-282, 9.00123031400698e+84, 3.0243884984874e+234, 1.08707866440307e+120, 2.96591522379483e-146, 1.95816798750811e-131, 1.1753306209927e-122, 1.0936207305258e-194, 6.71962574015995e-160, Inf, -Inf, 1.92199862573809e-190, 4.96534090618195e+107, 1.35722207577192e-292, 3.18497333306282e+232, 3.64103714844602e-233, 2.88131094116101e+218, 76065827.688744, Inf, 2.8816084901775e+131, 1.27133442567742e+256, Inf, 2.58069493284837e+92, 1.83131586623993e+43, 2.30802117553111e-243, 3.00755495315194e+162, 9.88725471179051e+56, 6.83873559857537e-277, 4.07538849532164e+27, 1.15617076673217e+141, 5.3595347089513e+194, 1.83289283459492e-105, 3.22121394014806e-307, 5.10252627988266e-139, 1.55281134536723e-61, 2.06418845533417e+82, 8.83202732272626e-282, 4.79072923958292e+75, 6.2030748819062e-218, 27.5113146236504, 7.46244315476878e+67, 2460.21952908724), .Dim = c(9L, 9L)), ref = structure(c(2.29157327002727e+103, 1.71090868935708e-32, 5.31232893578367e+184, 6147.55175587533, 6.93103357665744e+279, 5.92871189432898e+180), .Dim = c(6L, 1L ))) result <- do.call(GPGame:::nonDomSet,testlist) str(result)