testlist <- list(data = structure(c(155775557708.82, 2.80747208424139e+266,  2.33021794894447e-190), .Dim = c(1L, 3L)), k = c(-8.19990034122759e+68,  2.12779292647249e+227, -1.09029209194785e-75, -1.78262561935931e-164,  -2.52963526243728e+65, -5.84483022147943e+46, -6.37326212913309e+230,  -2.76270963384798e-267, 5.50654491775713e-49, 1.05791065964494e-225,  -8.96807602906728e-140, 1.41908266468282e+291, -7.85995943878482e+292,  -7.45227276529639e-258, -1.02117629200269e-150, 3.40311889865775e+139,  -23191.9977356181, -1.38023368371592e-103, -6.36474391329331e-111,  NaN, 7.3530855002087e+92, -2.21382302156191e+50, -7.10102679182635e+95,  1.71532619739606e+116, 9.27458337051352e-106, -3.95637801815948e-181,  -Inf, 1.67124871442638e-06, 5.96470537676336e-283, -7.7787045012574e+258,  -2.63840007818328e-209, 4.97888439162241e+265, -6.37371200028233e+278,  -3.9988020189381e-185, 1.30570139650998e-145, -2.46283392097835e+23,  -4.93563863731201e-181, -4.06075722932219e-293, 4.76543066061728e+251,  9.94142247419146e+263, -1.42597877870754e-178, 7.37054838039668e-242,  -6893875.59549907, -2.2691310157934e-57, -1.00045149391579e-57,  -6.88182410097411e+210, -4.68132562113912e-214, -6.26866218967436e-103,  NaN, -3.57029561181174e-230, -Inf, -1.10485415983984e-202, 2.92988642382566e-287,  -1.98177598794422e-75, 9.56342390794296e+229, -1458.15331945254,  2.03196678839264e-80, 2.41627827409067e+22, 2.48534131598253e+278,  1.55121879680957e-11, -7.98893407095498e-280, -8.50665035001221e+103,  5.43274405640439e-11, Inf, 5.54908626380892e+56, 0), lambda = c(Inf,  7.81426653392161e+138, 6.60920567001006e+294, 6.23029994326955e+222,  NA, -1.72139966600368e+159, 3.067261679204e-132, -Inf, -1.06265359392133e+210,  1.67995513107002e-47, 0))
result <- do.call(mixR:::EXweib_C,testlist)
str(result)