testlist <- list(lx = 1843202668L, x = c(-915852880L, 986572046L, 1244369955L,  -1037981667L, -1638542028L, 969202733L, 1432509442L, -1407836828L,  -493293283L, 1708534704L, 29348803L, -528752513L, -776621302L,  2056272079L, -225128086L, 221817839L, -795014091L, 1933043061L,  -155698985L, 874075653L, -838267064L, -1723393909L, -605424152L,  564254961L, 1055139761L, 470558226L, -983569927L, 2017459782L,  1225625570L, 1437036080L, -1872553550L, 82944834L, -708119311L,  -686160740L, 2045613553L, 764622966L, -1597548299L, 1858479870L,  708816942L, 810840325L, 509999093L, 2147193337L, -400102891L,  -1188918438L, -370913449L, -1435150636L, -1274674204L, 1517611641L,  -639537576L, -603958844L, 641522400L, NA, 1233756148L, -669517L,  -53766058L, 1065537304L, 1665036607L, 1052902244L, -19053475L,  1132373388L, 138706951L, 977910326L, 340954196L, -732140489L,  -1696762152L, -1602601826L, 1468136346L, -6281465L, -442036705L,  -255240955L))
result <- do.call(RTransferEntropy:::calculate_transition_probabilities,testlist)
str(result)