testlist <- list(Ax = structure(c(1.98028014510332e-27, 6.27496602504037e-298,  6.35844215956704e+155, 1.22015176128718e+306, 4.89260718997546e+40,  8.05531397140799e-257, 2.47372714734525e-109, 9.86977638951001e-155,  9.63891808188361e-67, 2.39054935632088e+36, 85124806740038.4,  1.5802931161244e+271, 5.84109419192583e+220, 5.82354361683433e+69,  2.34732468021839e-228, 1.94004498356667e-29), .Dim = c(4L, 4L )), Ay = structure(c(5.63770853300058e-69, 3.9671594292099e+243,  274762976548.924, 3.04923058418142e+276, 1.61914749078404e+303 ), .Dim = c(1L, 5L)), Ex = structure(c(3.61084290257287e-234,  7.39258053445829e-22, 9.92317492533992e+60, 1.70819869305311e-275 ), .Dim = c(4L, 1L)), Ey = structure(c(3.17371581509845e-262,  3.15921149699821e+56, 2.19539936860607e-263, 3.01807520234825e-96 ), .Dim = c(4L, 1L)), offset = 5.26179172997194e+50, qe = c(-2.22017047143462e-136,  -9.10681801177167e-156, -8.05784361542656e+272, -1.25603830054488e-19,  2.36905473326556e+281, -9.80531542474309e-223, 7.72872394903096e+149,  9.49440031073321e-136, 3.62799327330379e+242, -8.85810921012164e+282,  -9.52163361871987e-282, 1.40280240012876e+72, 5.79377224342946e-12,  6.41855894598153e-65, -3.85744499560227e-191, 1.73316746975554e+288,  8.99839288246026e-120, -1.35566948753168e+248, -2.99237331039009e-287,  -1.05387851923624e-195, -1.53108040878948e+88, 1.80989313523802e+279,  1.16225301267869e+28, 1.35252776334857e-278, -2.53827463637446e+250,  -2.08286915581468e+194, 1.01284607276445e-44, -4.3465180159423e-299,  -3.99782284571026e+132, -2.4131184806052e+19, -3.25271754994506e-173,  NaN, NA, 1.25127431165501e-162, -7.31782710494723e+109, -4.8152965399517e-240,  1.92428913121161e-166, -1.62541892169176e-43, 4.45300995827382e+169,  -3.45391684363069e+199, 1.00868427195575e-185, -9.72030475637542e+66,  5.80276082200377e-40, -9.34154995377084e+235, -4.07664621529575e+83,  -7.94822774578566e-246, -1.82661645078565e-236, -2.69147460374485e+98,  -4.26660702647899e-145, 1.31994947851705e-103, 5.55854162171062e+183,  -3.45730274884227e+304, 9.72789064780623e-159, NaN, -6.33999661799747e-107,  -3.27033975973079e+127, -2.68805248839817e-140, 2.89382577733923e-263,  -2.52977919617158e+93, -8.91829338003184e+76, 1.95994931249431e-17,  -9.903227529196e+156, -4.33167919910934e-215, 9.8927009041381e+305,  NaN, -4.24658014850828e-249, -7.98234022866226e+257, 2.33987616535924e+241,  -6.46264383910576e-33, -1.02487005498686e+281, 0.000402093230037891,  1.1728705217293e-209, -5.52761933572579e-260, 2.12578661596962e+187,  -2.4519230131553e-288, 0), type = 2147005274L, windowspace = c(1718217202L,  1161792774L, NA, 1772211029L, 2001533686L, 1152209102L, -120112354L,  646789260L, -594297823L, -750180448L, -173408674L, 1254732737L,  363771738L, 1527195731L, -563908286L, -702870350L))
result <- do.call(aphid:::ViterbiPP,testlist)
str(result)