testlist <- list(log_dismiss = 1.78305029150471e+123, max_its = 860876929L,      min_its = 1725362638L, N = 205943663L, r = c(NaN, 8.11011748043062e+134,      -1.03257662527594e+153, 1.07152618122477e+139, -1.32829145719433e+231,      4.88048830900701e-239, -5.26071435728122e+264, -5.76397108542496e-280,      -9.94650562032047e+188, -1.49918877353769e+56, 1.81312413287634e-164,      7.26431178286288e+160, 3.97887764037891e-75, NaN, 1.311014330822e+226,      -8.01925069391582e-77, -2.71556013655488e+194, 2.09290235483731e+260,      7.60691127684901e-29, 4.59357370881766e+258, -1.02108437557686e+209,      -1.66227370957137e+71, 1.20294968162019e+173, 2.34192915355255e+295,      NA, -Inf, 9.88233618618302e-105, 0), S = c(1434416441L, 88940557L,      1485040860L, -1728786011L, 977540242L, -1593973169L, -66270866L,      -613823696L, -398431762L, -1920271387L, 233292454L, -611103979L,      -681597065L, 1552795224L, -1718565004L, -107830046L, -770781089L,      -1731509083L, -1308210291L, -1718181264L, -162928814L, -676418704L,      1047717175L, 76093910L, -1746324177L, -1267083930L, -2145324263L,      -1214936403L, -546177098L, 531244637L, 470521120L, -1783695828L,      -1741988788L, -1523469531L, 1369849352L, 1019786523L, 984994137L,      1610069884L), signif = -8.46451060132381e+109)
result <- do.call(gsEasy:::gset_raw,testlist)
str(result)