testlist <- list(d = 2.29089532971766e+226, e = 3.50370770235287e+211, offset = 2.29534585658062e-215,      S = structure(c(7.77961519199077e+162, 1.28492827718209e-52,      2.05541389197343e-17, 1.51222513722489e+218, 2.53166756535062e+296     ), .Dim = c(1L, 5L)), type = -1834877271L, windowspace = c(-509836275L,      NA, 838702632L, 995737272L, -779872772L, 623861230L, -419180245L,      1545613886L, -1128838272L, 615765589L, -1335001364L, -969104233L,      -1061579803L, -370093104L, -207225776L, -986804607L, -438763255L,      1146703367L, 1155344650L, 432972249L, -2026520720L, 630341913L,      926771708L, 1811381585L, -797025699L, 1455004570L, -1765497425L,      -1840871142L, 2068351649L, -624182766L, 136515188L, 445433322L,      169822304L, -639370385L, -1482678470L, -425175966L, -253885494L,      -1430397774L, -521459974L, 2011948161L, 187491044L), x = c(-2001711365L,      -873851447L, -1677879288L, 680900650L, 1538438010L, 1488997354L,      -238944003L, 1871393015L, 1014952455L, 1745342467L, 90770221L,      -20752551L, 1980486606L, -887179076L, -507922096L, 1156139136L,      1731889103L, 1113117255L, -1042451265L, -1580460009L, -672406110L,      178085611L, 1444428699L, 25369449L, -1096599552L, -83146820L,      -390366327L, -2020368290L, 2122645640L, 593458041L, 2007962744L,      842064368L, -753209138L, 624396813L, 195922739L, -1741170410L,      -1109811232L, 940726703L, -1049745164L, -1643518863L, 601177928L,      214521599L, -823297434L, 609451233L, 740016485L, 773526767L,      -1992498393L, 1187551337L, -1646808407L, -1610045074L, -182201319L,      1985018786L, 1824262042L, -685995680L, 1483573150L, 891226322L,      -155550826L, -1037826889L, 1205391549L, 701194389L, -2006503585L,      -2085044004L, 625441370L, 195922739L, 1017705726L, -856115948L,      -779693574L, 1362202585L, -1715586788L, 1996093596L, 1081341607L,      -182254286L, -872861545L, -236540990L, 1820179645L, -1370777785L,      164652160L, -916710391L, -820858427L, 901183232L, -1356359520L,      222520185L, -1071696017L, 1808709236L, -1642400665L, 1997566022L,      589368152L, -687711866L, 720447287L, 881504757L, -1444387820L,      -1239774892L), y = c(-69133647L, -73202384L, 549510318L,      -338731208L, -848732723L, -888604641L, -631593162L, 1831091048L,      89463040L, -132239079L, -569522231L, -601423191L, -1872791717L,      1735359041L, -920553674L, 1169333834L, 146230016L, -713287245L,      -1981711258L, 142479256L, -578358460L, -177306178L, -1879247659L,      -1349378121L, 1231730462L, -422456976L, -1303456070L, -857386326L,      1816522337L, -1284235197L, 1880365087L, -1489512720L, -1567748216L,      1608579089L, 785304571L, -1273125600L, 1653834006L, 128014712L,      -1234069667L, -1469166262L, -61025445L, 1036741739L, -1707645362L,      1410035382L, -1611674458L, -1859838393L, -1766415297L, 619809056L,      1314683787L, 686290626L, 509415538L, 1753098247L, 1544781061L,      449594801L, -2098597722L, -612776407L, -700336898L, 682278982L,      131119216L, 1323399099L, -702170384L, -218128012L, -376366140L,      NA, 597811019L, 1268748883L, 1867170749L, 725252097L, 1613951570L,      848545307L, 635559728L, -1010036250L, 1844457912L, -1883042818L,      248429369L, 154352489L, 1714273176L, -1065241627L, 1670518054L,      1579551947L, 373130149L, 26190607L, 1566460006L))
result <- do.call(aphid:::ViterbiD,testlist)
str(result)