testlist <- list(fam = -1421267534L, par1 = c(-4.03623288419186e-151, -4.23193501904142e+192,  3.03005256789646e-187, 9.72424692670189e+299, -2.31256498007091e-164,  -8.04333605653027e-257, -Inf, 5.88947191451884e+121, 2.27315163516206e+143,  1.16313350934902e+242, -4.23193501904142e+192, 8.83025576058816e+256,  3.51269774826735e+283, NA, -5.1771547586197e+147, -1.32603214723313e+23,  -2.14890064089722e+251, 7.77383377835656e-168, -1.10256358213311e-227,  -2.65950267673755e-25, -2.30240146870382e-249, -3.54885067646205e+127,  -2.4550521868783e+157, -3.39286390203238e+157, 2.37821665199629e-27,  4.23236854242765e+20, -9.97528619226948e+113, 0), par2 = c(-1.8456867168165e-102,  7.05643800686267e-309, 8.03990904412022e+177, -2.1020027872734e-63,  1.66573833580536e-276, NA, -Inf, -8.01582449494762e+202, -1.8456867168165e-102,  1.0403047671767e-262, 2.12329088741304e-98, 1.76153138886126e+251,  -1.05933909023144e-48, 7.3781974769582e-301, 3.31649159628716e-133,  1.9668505976984e+97, 1.63516895799881e+20, -2.82949087968204e-238,  -Inf, -1.41672222767766e-216, 0), ppp = c(-3.86665354008249e-209,  -2.36922745928752e-15, -1.26581588858483e+154, -1.50683452232265e-208,  1.1269799417921e+148, -3.14528633492114e-119, -3.57982160955682e-187,  -2.19252367018616e-29, 434094.684393027, 1.45950768704985e-68,  2.24698370358306e-12, -7.26830485183666e+144, 3.70597169550367e+299,  1.76072703050662e-177, -3.87000313793503e-90, -6.9068179644683e+44,  -9.2365186502055e+36, 2.39975502919893e-48, -8.79307994138184e-116,  -9.61721263267481e+29, 1.29815156225073e+171, 4.15106807797752e-107,  -1.05216770099832e-136, 6.61112693393172e-153, -7.23459154691369e-280,  5.42553716521079e-164, NaN, -9.13594206935974e+157, 7.85605121312858e+101,  1.7707582327685e+205, 2.21581463834444e-98, 1.74109575033264e+177,  NaN, 4.18740018720014e+192, -2.09750478206946e-155, 5.76540253170396e-160,  5.08426927151631e-109, -1.25073350324173e-36, -64.7627983985623,  1.42599146333606e+212, NaN, 9.83494579691369e+55, -2.57440054371761e+185,  -1.21689253164153e-31, 7.09279099376907e-173, -7.13910858007481e-98,  Inf, -4.05032016348701e-121, 4.23762246643863e-16, -1.74283995588664e-107,  1.87092685260854e+103, NA, -7.31638399425018e-09, -5.92837080534881e-145,  0))
result <- do.call(NHMM:::rcpp_rmix0,testlist)
str(result)