testlist <- list(event0 = structure(c(2.85685049310965e+212, 2.8436519639493, 7.88699024031658e-116, 3.47489627504004e-288, 7.33765586620497e-143, 1.26152086800519e-252, 7.49664907444294e+293, 6.34966781180638e-114, 1.40838180313554e+30, 1.4530228291034e-14, 1.23655728130677e+101, 7.69619745326958e+261, 3.15214157546588e+268, 4.93296580245456e-209, 1.46848251267266e-111, 2.59553480281482e+130, 7.89613301814214e+73, 4.93775928725978e+96, 1.4539875856157e+172, 8.89135735916727e-54, 101720359.368851), .Dim = c(7L, 3L)), event1 = structure(c(2.26826065394075e-294, 1.69214887635963e-72, 2.19647580872514e-56, 1.54154212574147e-261, 1.75552992521395e+70, 2.86555489089896e+90, 4.82067410803116e+210, 7.6301488414695e-75, 2.94576051165654e+186, 3.05508620742933e-115, 2.21844362553763e-63, 2.44674583935188e+228, 2.44527575082657e-89, 7.36896789779786e-209, 1.6633654797488e+72, 1.45745619825011e-84, 8.53546114526541e+161, 3.09937765454676e-158, 3.95465385030692e-169, 1.51562050952451e-167, 2.14755111587525e-74, 3.05571876439121e-170, 1.51007261204457e+259, 1.05369956531537e+280, 1.73775029250148e-47, 1.66721044640579e+131, 1.26728528595525e+79, 3.84739392816999e-178 ), .Dim = c(4L, 7L)), fu0 = c(1.19698706936075e+286, 2.41639082772843e-164, -7.35839911619416e-214, -7.0172956479681e+264, -2.10534347608629e+235, 5.65780108301321e-211, -3.55382812226257e-307, -1.71859904303365e-146, -1.5204782054853e+150, 1.47951539757314e-26, 3275319846595088, -2.80025885434886e+227, 1.70511801332388e+61, 1.13229789023651e-153, -2.19104224245724e+160, 7.73894090364282e+56, 694953712.139485, 5.8411322051019e-181, -8.42785665887644e+143, 5.41919559362911e+224, -3.26616780765831e+22, -3.61801180595461e-28, 4.26160521294394e-265, 1.04046677304656e+207, -3.6763093625191e-69, 1.92430638783797e+304, -2.54783489297397e+255, -3.35089318818035e+72, 8.10025615446989e+78, -4.35803245378201e-244, 7.33766360642965e-16, -1.65729122766385e-30, 7.67481076491859e+144, 2.47976689138235e-190, 3.20119432918343e-59, -1.57939517967839e+271, 3.35419034392447e-218, 3.09581969478798e+284, -4.12287870525749e-196, -6.7083069619851e+90, -1.15603236846106e-273 ), fu1 = c(2.71379408558098e-129, -2.99574316180368e+172, -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21, 2.1613714735693e-216, -1.24268282218984e+93, 1.1295944748571e-232, 3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49, -1.25757101230842e+73, -8.79373529590978e+217, -9.77937136970318e+240, -6.91902272399548e+224, -1.16799430317206e+232, -1.9654566928719e+138, -2.97633622985238e-92, -2.12534603551549e-12, 3.06886759116986e+143, -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15, -3.80097643545023e-13, 4.66046102560888e-69, 1.52950337919874e-61, 2.34419643426571e-253, -1.24479898333526e-108, -1.64217809273048e+131, -2.8470716728564e-150, 4.23066581849164e+207, 2.48183270265646e+47, 8.28182054105106e-108, 1.38680336694119e-275, -7.75061828491447e+242, 5.78199949171137e-237, 6.2320075141858e-30, -2.11814402719399e-273, -1.27000634718051e-269, 1.09457818701388e+240, -3.14298318954663e+178, -2.74505505312392e+143, 4.27914432640749e+225, 6.36261492581283e-209, -8.98934695502905e-156, 2.33085174425266e+48, 3.00618321575548e+174, -8.78387566818307e+63, 7.56032999167439e-26, -1.25716071873292e-14, 2.25199374422079e-184, 4.80296800511319e-280, 2.79116244615456e+80, -9.57804568366e-212, 2.10189853902322e-146, -3.0386312246719e+111, 1.0015300692622e+155, 5.48808688325419e-286, -0.285796806779025, 3.04072249260674e-162, 8.52171475431224e+151, -2.56101348379959e-166, -3.89638019146403e-120, -4.91734031415717e+205, -1.18677683165762e+78, -0.0070579978543403, 1.01764283792884e-153, 2.31049250113662e-29, 0.000475019551220907, -2.14715942230822e-215, 4.73445540015647e-268, 1.61816297675879e-44, -2.2783741403394e-20, -4.81213600522781e+277, -6.96077798240833e-217, 1.42246777598496e+132, 1.93259016145597e+205, -3.62536543248155e+117, 1.1903241478315e-153, 5.15897917174239e+27, 12158178178.9569, 2.84037781763615e-159, -3.06676274066336e+159), time0 = structure(c(-6.00482328731923e-68, 2.20447396162605e-291, -Inf, -6.00482328731923e-68, 1.32661560250903e-151, 1.36585604284666e-300, 8.90336538062597e+96, 7.26363928104412e-306 ), .Dim = c(1L, 8L)), time1 = structure(c(1.05414702709612e-68, 1.86446765666332e-211, 449058805123160512, 2.72550962279315e-214, 6.53679281395345e-70, 2.42643425911725e+241, 1.65686753146763e+24 ), .Dim = c(1L, 7L))) result <- do.call(WinRatio:::mat_comp_repeated_cpp,testlist) str(result)