testlist <- list(denzity = structure(c(1.10294210594209e-92, 3.46648174083695e-197,  1.35150564504621e+246, 1.1731258104643e-113, 5.65008376514391e-77,  1.43695135905394e-185, 2.19008738153469e+119, 2.02916056752603e+217,  8.41677137698253e-42, 1.87036560714944e+76), .Dim = c(5L, 2L)),      QQf = c(Inf, -Inf, -4.6675854108315e-150, 4.52145164916353e+154,      -3.15298792385056e+292, 1.33592086557456e+108, -2.76810176334679e-296,      -5.44499166156253e-94, NaN, 1.00942601135703e-174, -4.22916616597443e+201,      9.49258071438655e-272, 1.45086487886918e+133, -1.50792517224097e+237,      -9.60411811806763e-94, -1.57469451787392e+92, 6.03725464699929e+196,      -1.25736009526051e+169, 6.88592731762083e-13, 8.86162562300913e-202,      1.49804350676278e+62, -5.38826481175796e+130, -1.28629011775522e+141,      9.56904211086164e-234, 1.73353280578446e+65, 2.63090759853797e-306,      NaN, -3.1404326768975e-257, 4.27220922051315e-97, 8.91628776433774e-47,      2.54161740526915e+104, -2.69396169986187e-107, -1.26033296053414e+70,      -1.19906277847852e+245, 1.57384109013927e-121, 62.456562807693,      5.91462351350049e+237, -1.7235179227795e+274, -4.36261320047765e-281,      7.37455088694725e-141, -4.3628242256963e+88, 1.9409018340241e+31,      2.05276175373618e+196, 2.08970211297863e+213, 2.92553621051295e-65,      0), subseqy = c(NaN, -Inf, -Inf, NaN, 3.89964671462472e-269,      0), zf = c(-8.64257650959653e+101, -1.2509578762249e-47,      -9.44686494192877e+286, -1.65988528908239e-115, NA, -1.99330408823988e+232,      107841895.550088, -2.51129638743142e-241, 2.62210492349682e-152,      -1.94343419812041e+202, -4.56627634069475e+204, -0.00105068904025701,      -5.41588171427857e+288, 8.79002613812122e-38, -67773674211720.1,      -3.61458251044472e+229, 9.81432063101525e+207, 8.65628094151797e-249,      -3.58901521872693e-215, 1.13944056625258e+29, 8.01176292691689e-10,      -4.90488001401563e-262, 8.33787246898494e-131, 3.39064011450478e+41,      2.67771916212612e-153, 1.02568902484721e+68, 2.44469011444217e+123,      -2.6311251570365e-113, Inf, 1.06141775620292e-262, -1.14861273827213e-52,      1.86482688336598e-124, 4.00981406259608e+282, -6.3315244347758e+299,      5.04441626091552e+139, -6.89842974049789e-295, 1.06835618415755e+248,      -7.34433369185791e+124, 1.33667334552093e+84, -2.52881634782267e-116,      8.48863974375633e+49, 4.35276615881985e-215, 3.65916993078964e+277,      -1.86555890244274e-101, -1.40030606912947e+171, 4.77381513880789e+47,      1.07817513005151e+89, -1.13916026718788e+165, NaN, -8.52978165845475e+96,      2.07819377049005e+167, -4.80919220952989e-147, 2.31159017791327e+36,      2.19702498614269e+234, 7.73781943571193e-228, -1.00601044048667e+201,      -1.85575574767301e-167, 1.20439288999479e-86, 2.30604113159749e-63,      -9.22244368161111e+123, 3.38158560932104e+78, -1.50051520563344e+165,      -2.47035014950998e+113, -1.90166230555886e+256, Inf, 3.97500910843809e+240,      0))
result <- do.call(NHMM:::rcpp_getz,testlist)
str(result)