testlist <- list(pen = -3.02311701651779e+202, resp = c(4.05469640282929e-74,  -9.15957770036651e-292, -1.32519400453074e-180, -6.768064057128e+55,  6.93167353918564e-298, -7.93207217335267e-75, 4.92413821106459e+279,  -3.21289839021497e+304, -5.46611352430453e-223, 1.76308897308883e-71,  NA, 8.76265590508159e+199, -6.50977903572512e-218, 80824280319427.8,  -7.15363843764732e-306, -4.79284955995866e+101, 2.28157067720536e-100,  NaN, 2.91968468407041e+200, -3.24789929302122e+39, -1.27167998990012e-242,  5.51174587642845e-92, -1.6684458815266e-79, 2.6178282211869e-270,  3.98183616356748e-48, -1620778835715890, 2.66341274222442e+164,  -9.48246738206064e-247, 4.51839624400382e+290, 5.80939096380608e+81,  2.51454280536704e+247, 5.45113384939425e+89, -5.09243048446923e-151,  3.47493860786923e+239, -3.02743309827443e+271, 5.01831781666588e-09,  14410186047052.6, -9.88443139882848e-148, -4.73840974262017e+220,  1.42774005672519e+305, 3.6189139903988e+92, -2.07715974550536e-80,  -7.3794262058441e+302, 2.55506364328384e+42, 3.65619768814602e-162,  -8.92401896958916e+167, 1.12479833871983e+240, 0.000193957807681168,  -4.75606177726044e-23, -2.50111686205482e-218, 1.79288719945981e+115,  -3.44320686879788e-95, -4.57000116995103e+135, -6.9886525764733e-259,  -1.52495910038766e-12, -1.13833227747963e+63, 1.00919875598354e+121,  7.39254326798443e+59, -1.03187106734414e-271, 1.06002620986478e+205,  3.0038626785172e-115, -4.43513609300006e+101, -Inf, -2.47342466606039e+202,  -3.6268543821459e-63, -7.08080116186419e+258, -4.8018614966539e+59,  7.46856540787213e-201, 8.80122542949415e-175, -2.18841891532668e-125,  -Inf, 1.71035027296727e-21, 1.11318605406686e-80, -1.80205887294625e+278,  3.06160627905932e+74, -3.79473351347487e-225, 3.08872679341186e-142,  6.45917349374786e+78, -2.00971080070718e-174, 3.65033752288784e-78,  1.31216204215141e-69, 3.13433245718369e+50, -1.34501274834357e-166,  -2.70415102043678e+288, 0))
result <- do.call(bartBMA:::PELT_meanvar_norm2,testlist)
str(result)