testlist <- list(Data = structure(c(6.58605848376632e+205, 4.24237935562642e-05, 1.4302500422581e+228, 0.0605213987360922, 2.25569801275452e-178, 5.1494298214259e+77, 6.40301677110688e+108, 1.50769415199714e+260, 2.29083149574899e-15, 4.70922764057425e-285, 1.42538711890907e+246, 9.17615608036292e-291, 2.76208360541888e+141, 1.71072585782287e-285, 2.66592386719009e-302, 2.08807660325915e+265, 3.85593289512065e+287, 7.31073226224055e+284, 5.66062513224642e+183, 7.57616474705667e-12, 1.49836103336783e-239, 1.75802764758291e-174, 4.86681522326559e-239, 7.13737412146619e-81, 8.6819246056188e-271, 7.69645607210616e+20, 4.9510714212141e+252, 1.16396416728258e+135, 1.79935260227121e-149, 1.97393377403019e-200, 8.3091948687922e+96, 5.80410730585907e-126, 6.85283514522772e+85, 5.60885257577673e+236, 2.82381218343279e+256, 3.28016423771922e+109, 4.69222756159441e-154, 3.36436756984506e-99, 3.39704811726231e-77, 1.67240749142495e+239, 1.09868802456775e-155, 8.47213530919937e-213, 1.28816176397148e-273, 1.5305161227656e-268, 3.82005434162851e+275, 5.28327059809372e+63, 2.66258134573976e-21, 4.85632298462401e-70, 7.5553718176444e+145, 1.1965973625845e+58, 1.22099461641432e-158, 1.04161654779146e+201, 1.6345930270291e+30, 1.07452788881076e+64, 544707649321467, 4.44715098648239e+228, 1.70563303163164e-220, 7.74835314668888e-43, 7.38542863448947e-09, 367.584616944871, 9.43219271754398e-301, 7.49139078977994e+56, 1.89583763405977e-277), .Dim = c(9L, 7L)), NeighborhoodSize = 1022414435L, pData = structure(c(3.29332127541327e+44, 76.1837191223241, 6.26397080322017e+147, 7.74605872461052e+182, 1.78343480851658e-189, 9.31776127670243e-291, 3.43690572816374e-166, 1.39238972684891e+97, 3.05447472987431e-253, 1.01384558483598e+186, 2.00725791416269e+111, 1.44743160143702e+207), .Dim = 4:3)) result <- do.call(ProjectionBasedClustering:::c_klmeasure,testlist) str(result)