testlist <- list(mu = c(-1.87140553649538e+137, 9.61733653486542e+69, -1.96031519490355e+258, -3.63411296716324e-252, NA, 1.67990211496765e-58, -3.522385197167e+24, 3.61075279036258e-59, 4.9013256482608e-53, -4.65479674099035e-183, -1.22744884598767e-185, -2.76999848366766e-77, -2.43025941404389e-244, -5.74985748775238e-198, 7.46486186906922e+72, -4.72575681382373e-293, 3.05460726222712e+61, -1.17483598071424e+264, -2.62112251006293e-05, -2.49365260828184e-200, 1.0632906377956e-41, 9.79168587582622e+265, 4.86745600642373e+275, 1.32627898822524e+25, -1.66607288307786e+162, -1.30991762165712e+129, 0.00167584501573802, -8.6495925430606e+116, -12196267171.1264, 7.32213662282883e-125, -7.28018381039757e+105, 4.07052395161025e+307, 3.20682813742783e+281, -2.46227730873728e+136, -6.68517757189238e+159, -Inf, 7.45321881972469e+171, -1.59772189545072e-32, 4.65603900254899e+224, -2.09366396656311e-218, 2.01062844857925e+123, -4.90466541835373e+42, -6.00802060822167e+239, 2.05738269268092e-250, -4.64807087584811e+150, 6.25755800601589e-81, 1.41545232675695e+60, -9.52753603276301e-185, 8.8124642834433e+157, -5.27498255458021e+260, -6.61483588054868e+149, 3.7659220996133e+272, 1.38430395022746e+136, 1.22356517616366e-139, -1.10332830768902e-301, 1.61011632774218e+265, 1.0632906377956e-41, 7.7685123309132e+158, 9.66815536766045e+287, 1.27506800263819e-240, 1.1726887219878e+264, 1.21458914694813e-213, 1.00812567280528e+266, 2.33339127443629e+305, -Inf, 9.94683440403636e+222, -1.11222288160967e-54, -8.1971880892442e+77, 1.45584261671291e-133, -7.11623792922468e+123, 2.83629349501964e+271, -4.81213259913119e+181, 132671722961978, -0.251934758828317, 1.97762703852107e+286, 1.86838826836532e-133, -3.86394217772235e-112, 8.06195686258784e+30, 4.75435038425891e-60, -1.67347984855882e+240, 1.81888840412568e+88, -3.59367475677957e-81, -9.8492687098972e+305, 7.87033790653637e+251, -4.28990748783432e-232, 9.99017876022057e-255, -2.11156239085678e+97, 8.68223093959916e+243, 0), pi = c(8.36575224836708e-105, 4.10578721521836e-199, 3.6407384391491e+265, -1.6270286667487e-72, -6.53451950005825e+211, -9.29789924715583e+257, -4.75598380935155e+232, -5.73848218352465e-148, -3.45963913432394e-145, 1.88773777468792e-191, -3.30945030614018e+48, 1.14210519208299e+30, -7.08158377887475e+231, NA, 7.15481691644208e+230, -3.8604506209365e+148, -4.52043036709789e-27, -3.08806349400287e+277, 7.85272060332391e+117, -1.53035055675026e-137, 1.05387296243173e+240, -Inf, -2.07505595902775e-183, 1.56367059093172e-49, -1.44490936966503e+59, 2.4967103649055e-240, Inf, 1.02610254924174e-138, 0), sd = c(-1.45607253546133e+258, 5.70634296911317e-149, -Inf, -8.61328100945396e-231, 3.18850914885059e+173, -1.84192417388193e+87, 5.34109630717286e-118, 3.18850914885059e+173, 7.97660674955492e-89, -5.55482476661998e+72, 1.23488010637911e-169, 4.66147279379028e+184, -1.06796986223086e+92, 7.85692522759453e-83, 6.29757780601461e-117, 3.55261234137711e+52, -1.16265694216269e+259, 3.18850914885059e+173, NA, -5.70678110023686e-276, 2.76163246917306e+271, 4.14276172739762e+56, 1.56652217780382e+63, -6.28520944805952e-304, 0), x = c(NaN, -Inf, NaN, -7.1607880014082e+155, Inf, NaN)) result <- do.call(mixR:::expZ_norm_C,testlist) str(result)