testlist <- list(Data = structure(c(1.24053176837298e-79, 1.12118881825915e-76,  1.30956474565863e+174, 2.03737672707226e-187, 4.22576844382702e+304,  2.16016603800665e+226), .Dim = c(1L, 6L)), NeighborhoodSize = -1112341177L,      pData = structure(c(1.94837798484915e+148, 1.64335484384522e+185,      4.94931202987679e+241, 473613895.313273, 1.58405377893547e-262,      5.13091393531838e-292, 2.08567142266567e-171, 1.54238239164922e+292,      9.82593028709178e+301, 3.29074907724957e-196, 6.82064860587048e+53,      1.68425860095152e+249, 1.6982009581757e-178, 5.53728229047602e-121,      4.69897955024772e-284, 3.77584084932146e+85, 2.61049115426794e-132,      4.45897627832199e+87, 1.60731743653393e+152, 3.08146252950463e-256,      4.37136839199397e+62, 1.86018571521839e-144, 8.93288365461609e-53,      8.08964622678678e-193, 3.17014203078143e-229, 8.31654333591702e+294,      1.33020514901653e-132, 3.37570722216594e-77, 3.82492213390844e+44,      28496531.3443061, 3.45842829792112e-251, 6.78175824665408e-249,      2.63323244187428e-149, 1.22661700344503e+153, 1.94048108982539e-19,      3.91167281785603e+30, 2.50001286558572e+148, 1.49226355158557e+260,      8.32157375791934e-81, 5.09431816309677e+214, 7.26541802385585e-263,      2.49569729697957e+155, 1.04478397949647e-150, 2.11150468407478e-270,      1.36350908747483e-120, 6.56448068006042e+141, 9.83885760135472e+176,      1.31118208793991e-169, 1.0842573370941e-156, 1.29611978112522e-123,      7.43714655246033e+221, 1.88619735649159e-136, 2.10675580606211e+175,      7.76461356662679e-200, 1.34979870709356e-126, 9.48910930152057e+189,      5.12792510191636e-229, 9.51044028508122e+281, 1.13824431061792e-243,      1.79296732377926e-34, 5.51275184656416e+222, 2.05096929447999e+87,      430369424.542904, 8.7608333516392e+268, 1.13689569332548e+265,      3.6542022952271e-174, 4.61127209346508e+159, 8.34781260235469e-16,      1.17037959025226e+117, 2.19756806112368e+141), .Dim = c(10L,      7L)))
result <- do.call(ProjectionBasedClustering:::klrank,testlist)
str(result)