testlist <- list(ex = structure(c(9.9367300729105e+259, 4.1304991447767e-93, 6.67404191177319e-123, 5.31773169187045e+36, 1.02347775196222e-68 ), .Dim = c(1L, 5L)), mulog = c(-1.18838713218821e+134, 6.35902240407789e-91, NaN, -1.55086568780989e-217, 6.96373792604131e-124, -Inf, -5.05666871914283e-88, 5.96466415409064e+199, 1.06825424366233e+66, 5.6546623154256e+217, 7.40246866784458e+97, -3.15346112695672e-207, 6.48736766843174e+31, 7.3224909044953e-69, 5.98212590964441e-220, -Inf, 0), pi = c(2.67332912180428e+108, 5.39502060941153e+193, 7.6054246922385e-165, 1.7908909486571e+38, -5.63963175763133e-163, -5.64678629949368e+163, 4.75492948953469e+290, -6.70603620680714e-215, -2.6029741845362e-70, 8.3685298773137e+143, -3.59162158678242e-142, -1.77355821260983e+89, -4.23516147485331e-45, -1.58798073267582e+74, Inf, 2.85183322801294e-236, -Inf, 7.6054246922385e-165, 4.25610320504319e+46, -8.87747916881422e-12, NA, 1.14256738913588e+206, -7.97765237107786e+301, -1.54055469860131e+142, 0), sdlog = c(2.27779029711581e+30, 1.68794643978404e-88, 2.64174697180562e+42, 1.79785740596656e-91, 2.74907935672443e+51, NA, 2.93743177795213e+62, Inf, -1.79255294084159e-241, -8.39463411025519e+293, -1.06751468332598e-19, 6.2076223830049e+244, 3.7249105054139e+183, Inf, -6.96151526835982e-08, 6.31727625204517e-139, 2.96200176499568e+251, Inf, -2.15181390403369e-192, -2.71327607362233e+205, 1.95439105246769e+110, -1.21958350992443e-116, -3.24460329769888e-136, -2.24674767453659e+68, 1.32575388241403e+73, 4.37217242949958e-227, -4.09012093869679e+91, NA, 6.46416982312156e-35, 0)) result <- do.call(mixR:::TXlnorm_C,testlist) str(result)