testlist <- list(Dx = structure(c(9.81653548532498e+100, 1.36369429614046e+245,  2162929476929720320, 1.38512088274737e-68, 3.46294637487517e-248,  6.82781788713997e+238, 3.10539359695905e-298, 1.14294798285429e-29,  2.6948192163498e+128, 7.17899295654803e-166, 1.02539384000725e-139,  2.29406267960004e+198, 3.03135914284237e+295, 4.11222866343255e+267,  2.53764365603053e-259, 1.51569612533055e-248, 4.29387180157733e+252,  2.40658178569119e+210, 2.39737229941888e-11, 2.06275979144878e-206,  1.36301132658332e-292, 3.11915087516871e+206, 4.72952085020946e-120,  4.13669670971095e-298, 4.88349191225272e+172, 6.45672404220716e+158,  9.90749703750681e+271), .Dim = c(9L, 3L)), Dz = structure(c(2.71896170756631e-247,  2.51243707829392e+85, 1449.11009467603, 4.40992693622386e-291,  2.72768318941438e-44, 3.37925593352666e+35, 5.5302979042785e-307 ), .Dim = c(7L, 1L)))
result <- do.call(energy:::projection,testlist)
str(result)