testlist <- list(Adj = structure(c(1.67998446197094e+63, 1.72820172321867e+120,  4.05044397170748e-79, 9.33891017804075e+178, 3.92517365263398e-284,  2.31074607388168e-299, 2.10938824975063e+281, 3.24451466576771e+104,  1.22315022683266e-257, 1.88803821989264e-257, 2.3570217263758e-76,  8.76677768352245e-284, 1.49306097197126e+252, 1.81334488658647e-119,  1.171408040527e+52, 2.732163537825e-200, 1.62433358706834e-68,  3.13246851340245e+231), .Dim = c(6L, 3L)), Costs = structure(c(1.77617184484186e+277,  8.72230076736755e-84, 2.18301385370686e+121, 3613260769334818816,  2.30164745817983e-75, 9.4456351694037e-232, 4.35329935238724e-138,  1.03873420036334e-237, 9.15320724016829e-269, 2.02163797049923e-75,  9.03820814527138e-295, 1.1323455363872e-292, 1.05713195192754e-134,  2.89876795752455e-245, 7.29190836668495e+129, 1.14604192190393e+145,  2.1685938988953e+214, 8.21434730472142e-109, 3.96645548429176e+257,  1.98047308256319e-17, 5.51209517389904e+71, 2.26147750981668e+162,  3.79666106808351e-179, 1.64844535135166e+184, 2.03494107469464e+200,  6.29344661672067e+210, 6.22803324724799e-249, 6.71775062450744e-309,  9.86016788197868e-182, 3.47109946641377e+286, 9.5473886255447e-220,  3.83759256085428e+302, 5.30456417073319e+267, 1.47235508424862e-128,  2.00774721512507e+158, 5.18225194236466e-128, 202309496.447752,  3.65136090543759e+304, 1.13579694500468e+251, 1.83177667725348e+128,  3.68367725436947e+103, 8.55639711030757e+145, 3.55539168651811e-31,  4.35706248458397e-227, 6.72692188102879e+295, 4.69054092421227e+291,  1.91925065208652e-275, 1.13235310114833e+269, 5.94201933456018e+199,  8.11264234684801e+247, 840873541958.392, 5.52603018778304e+141,  1.68906747256358e-119, 2.185189605578e+71, 9.52552722655509e+207,  3.50378594747148e-106, 3.97924699325278e-286, 7.2874407094574e-303,  0.000472126708684072, 3.58761663623124e-289, 1.62058837903111e-136,  1.35611130913986e-201, 1.55715135475259e+33, 5.51842622388654e-90,  6.00474509832383e+91, 2.2042396026393e-266, 1.94022991436202e+105,  2.6123020313382e-12, 1.25254525387855e-169, 2.92601910013426e+150,  2.20205318442761e-302, 8195050437624102912, 2.30778629210997e-94,  4.5640619678298e-52, 4.46026980238915e+83, 5.99810377633187e-195,  170629614461.366, 1.27140895451282e-291, 1.40559397363836e-84,  7.65646158055665e+136), .Dim = c(10L, 8L)), source = 1660670983L)
result <- do.call(ProjectionBasedClustering:::DijkstraSSSP,testlist)
str(result)