testlist <- list(D_mat = structure(c(1.54458096127227e+60, 3.41101454752662e+171,  3.58419569978947e+261, 1.535318059725e+63, 3.24146725812615e-88,  2.73319051225567e+200, 1.17371352159211e-116, 6.34121368508506e+223,  1.49842585413074e+54, 1.53702053644359e+156, 3.46125562282296e-48,  1.33487312164801e+61, 3.44323920432687e+163, 7.03858570335258e+213,  2.82752049606709e+125, 1.87775957765514e+242, 2.60852837174901e-188,  3.44463385017518e-245, 1.23471593432713e-200, 7.18043465072548e+169,  1.0177084166751e-199, 4.71906981279991e+229, 1.07099624192828e-300,  1.61911945465553e+290, 1.5007806212047e-64, 1.24256405639769e+270,  4.96338445329421e-152, 5.68879782667374e-64, 3.92887923532301e+208,  8.90917961575448e+241), .Dim = 5:6), h = -1273893913L, hhat_mat = structure(c(3.60908643865453e+224,  1.11742128101669e+83, 1.97870122171185e+143, NaN, 9.37480792170664e+280,  3.07504141416437e-136, 1.01645313737868e-124, 1.00679150745081e-73,  1.27047634996911e-62, 2.13409614918679e-145, 2.01768927817267e+47,  NaN, 4.713762584588e-48, 1.7506159598139e-260, 4.13272931804741e+261,  7.50347923086546e-71, NaN, 2.90402077461892e-286, 3.56215199780015e-230,  1.43677827629537e-133, 7.46114516421967e-258, 5.0141334820982e+184,  NaN, 29072.6257709098, 1.41003229091807e-86, 1.93643921836204e+180,  1.99326012973524e-62, 1.39815628510302e-16), .Dim = c(4L, 7L)),      xpxi_mat = structure(c(4.71727387541793e-75, 2.98962599613851e-36,      1.44019333353852e-33, 2.16906432662576e-76), .Dim = c(1L,      4L)))
result <- do.call(lpirfs:::newey_west_pw,testlist)
str(result)