testlist <- list(beta = 4.73445540015647e-268, graph = structure(c(8.54740332562179e+170,  5.04451954698312e-247, 8.08980575145225e-307, 2.29398643782599e+239,  4.2853267282121e-122, 2.04437797766806e-122, 2.80120497110943e+306,  3.67846220847657e-273, 7.13031288806914e-238, 2.26826065394075e-294,  1.69214887635963e-72, NaN, 1.54154212574147e-261, 1.75552992521395e+70,  2.86555489089896e+90, 4.82067410803116e+210, NA, 2.94576051165654e+186,  3.05508620742933e-115, -Inf, 2.44674583935188e+228), .Dim = c(7L,  3L)), nSample = 467495432L, responses = c(-152708421L, 2147047681L,  -1799907847L, 967591685L, -273281389L, -886492886L, 1091067995L,  -603523374L, -338588054L, NA, -1644144680L, -1382097508L, 1441476384L,  341854805L, 1756082245L, -1314449508L, 2024080962L, -1921933269L,  1928790815L, -1780368406L, -857011231L, 1263875764L, 15202737L,  -1911534330L, -1236055997L, -974623177L, -546154892L, 1393647391L,  NA, -1086849856L, 519401900L), thresholds = c(6.87024100783927e+274,  -5.68764856223117e-181, -1.13844874214302e-199, 1.96260971350789e-252,  5.33405194998669e-300, 2.59208973630206e-42, -9.97306573534695e-54,  -2.72162996958946e-171, -3.62546934961208e+168, -1.05877353233728e+151,  2.42723774121938e-180, 2.71379408558098e-129, -2.99574316180368e+172,  -3.92218442701392e+180, 3.87644683863415e+40, 2.87529519465824e-21,  2.1613714735693e-216, -1.24268282218984e+93, 1.1295944748571e-232,  3.92159577538232e-79, -15667.1775954664, 4.57084549186976e-49,  -1.25757101230842e+73, -8.79373529590978e+217, -9.77937136970318e+240,  -6.91902272399548e+224, -1.16799430317206e+232, -1.9654566928719e+138,  -2.97633622985238e-92, -2.12534603551549e-12, 3.06886759116986e+143,  -3.91468555641316e-243, -5.48275336426756e+103, 9.28985945620188e-15,  -3.80097643545023e-13, 4.66046102560888e-69, 1.52950337919874e-61,  2.34419643426571e-253, -1.24479898333526e-108, -1.64217809273048e+131,  -2.8470716728564e-150, 4.23066581849164e+207, 2.48183270265646e+47,  8.28182054105106e-108, 1.38680336694119e-275, -7.75061828491447e+242,  5.78199949171137e-237, 6.2320075141858e-30, -2.11814402719399e-273,  -1.27000634718051e-269, 1.09457818701388e+240, -3.14298318954663e+178,  -2.74505505312392e+143, 4.27914432640749e+225, 6.36261492581283e-209,  -8.98934695502905e-156, 2.33085174425266e+48, 3.00618321575548e+174,  -8.78387566818307e+63, 7.56032999167439e-26, -1.25716071873292e-14,  2.25199374422079e-184, 4.80296800511319e-280, 2.79116244615456e+80,  -9.57804568366e-212, 2.10189853902322e-146, -3.0386312246719e+111,  1.0015300692622e+155, 5.48808688325419e-286, -0.285796806779025,  3.04072249260674e-162, 8.52171475431224e+151, -2.56101348379959e-166,  -3.89638019146403e-120, -4.91734031415717e+205, -1.18677683165762e+78,  -0.0070579978543403, 1.01764283792884e-153, 2.31049250113662e-29,  0.000475019551220907, -2.14715942230822e-215))
result <- do.call(IsingSampler:::IsingProcess,testlist)
str(result)