testlist <- list(predicted_class_int = c(1400357137L, -1588201407L, NA, -1914352454L,  848007509L, -2097626771L, 1112439113L, NA, -95950181L, -1662788586L,  1002299336L), vardep = c(-651473500L, 1887644247L, -680211654L,  2048920141L, 2023677838L, 159569089L, 536032796L, 406322161L,  1648924370L, -859821661L, 905239983L, 367590541L, -2032460913L,  1575965053L, -494429701L, -1097470943L, -578620503L, 1125993848L,  287975206L, 304395161L, -3266467L, -1099310432L, 7576511L, 143188198L,  181636941L, -253967102L, 132982809L, 299676176L, -1428460184L,  1413941589L, -1146874685L, 754231607L, -952531784L, 357218844L,  -47906337L, -1092069271L, -1010380520L, 232418760L, 2139196587L,  1966465596L, 1852306564L, -1313955608L, -1848233905L, -1081558910L,  NA, 1678189795L, -2001694723L, -428787116L, -668018551L, -579243666L,  1335999758L, 712413560L, 2872420L, 871975099L, -1445480049L,  1223943201L, 566012670L, 891055237L, -1121283097L))
result <- do.call(fastAdaboost:::calculate_test_error_,testlist)
str(result)