testlist <- list(n_boot = 2012798786L, pred1 = numeric(0), pred2 = c(-2.43199553485944e+52,  4.13905939362741e-92, 1.78452567055709e+25, -5.29983465799674e-108,  1.58107232847628e+292, -3.3965193867196e-200, Inf, -3.8884256806731e-90,  -1.46909379559912e+299, -1.65081892735048e-110, -Inf, -Inf, -1.56791642674647e-68,  2.63551314138672e+35, -1.47640461659269e-255, -Inf, -2.12126524144164e+82,  0), true_class = c(966675790L, 908136096L, 1998842666L, 1040738718L,  -1774148384L, -147269347L, 818178087L, -46054346L, -544111339L,  -1282165206L, -1230940940L, -1447128256L, -29941518L, 1052042863L,  2035193462L, -1881428882L, 1815184415L, -1002812806L, -610373755L,  1543685466L, 971328888L, -147269347L, -2122479344L, 1479900869L,  1728242731L, 1009690136L, -854221527L, 392332368L, 1204930785L,  78640261L, 763204997L, -1290581478L, 372196690L, 1575709226L,  480279L, 1775790257L, -1456434515L, -528010739L, 80188087L, -622997008L,  202851177L, 44930051L, -1243080162L, -1065169047L, -1285417325L,  -381116179L, 254977513L, 259447323L, -1927445104L, -904293505L,  28155585L, 812460771L))
result <- do.call(fbroc:::tpr_fpr_boot_paired,testlist)
str(result)