testlist <- list(numbuys = c(-7.46327832015498e-46, 3.68102194107928e+110,  7.15836024578552e-45, -4.50061798494086e+223, NaN, -1.1187246933497e+153,  6.93900443690707e+87, Inf, -1.48202835831869e+219, 512.283999069868,  -7.52219481229896e-85, 4.60008834537456e+218, -3.02066866394789e+120,  Inf, -2.75235604745556e+28, -5.07715230768215e+169, -5.37588973489573e+42,  -2.33139236727923e+154, 1.19454754431075e-218, 2.60406437222671e+56,  -0.00161567849378899, 9.51952108677565e-271, -4.36641645564024e+28,  2.00943067581889e-213, -1.21016196540723e-121, -Inf, 5.79038351225016e+168,  -1.24358525516925e+82, -1.95815593005908e-129, -4.04659066183472e+89,  -4.81240132713453e+299, 0), numsells = c(-1.46792804728577e-155,  2.47045972843706e+274, -3.76734314710836e-216, 9.90776267335613e-220,  5.34738194061691e-81, -3.05219767460877e-76, 5.06009783588862e+127,  -2.69068979134804e+206, 7.66776318221038e-304, -2.68651996000753e+54,  -1.18613635022858e+168, -3.51943207375995e-35, -1.70151393811013e+223,  5.39203994790214e+258, NA, -Inf, Inf), param = c(2.74841666922634e+156,  9.24913926212546e+80, 1.69460724839193e+251, -1.20344421827292e+110,  -1.59008769851582e+227, Inf, -1.57300494573359e-83, 1.79974272732387e+184,  -9.12566682714332e-146, 1.31656391208832e-114, -1.46180795163488e-102,  1.75868932353093e+296, -3.93710282256552e+274, 8996936431.142,  2.89793570650272e+243, -2.3808507784396e-253, -4.61393728108993e+131,  1.50934659574455e-302, -2.90084170416284e+184, 5.22358301373733e-135,  -3.42763406767891e-120, -2.25255275506739e-87, -3.10911607597786e+160,  -0.000266284926866497, -8.40243149444682e+27, -3.23715414765201e+150,  -0.00179942556216369, -1.81487772952335e-222, 3.32523595225995e-252,  8.67733776710733e+293, 3.72927216624561e+55, -2.54935834427637e+163,  NaN, 3.62583649259895e-277, -2.25953156594188e+216, -6.42553249619091e+147,  -6.55385268717984e+294, 3.76440056788779e+294, -1.90631150050059e-256,  -1.16273083179199e-35, -4.82812664443022e+64, 1.01768015029932e-239,  1.21675867975321e+243, -7.53836850488207e+263, 1.02602635257292e+294,  -9.70756348188984e-183, -9.09527286264623e+46, -1.95593197861389e-91,  Inf, 2.81365220219881e-231, -2.02351577281769e+223, -3.18479328106711e+296,  -3.84653246917858e+96, 1.99375536999354e+161, -1.25192633274892e-124,  1.08913661766463e-251, -1.59185445341074e-220, -3.5513025494498e+107,  NA, 1.11924803185525e-86, 0))
result <- do.call(pinbasic:::eho,testlist)
str(result)