testlist <- list(idt = c(1.27890654606226e-188, 7527485546020.59, -2.14488209182332e+105,  Inf, -2.02048162434253e-44, NaN, 3.42032101584627e-93, 8.27932373953685e-269,  -4.36408839884835e-38, Inf, 0), pw = structure(c(NA, Inf, 4599873890604020224,  1.51667032522555e-225, 6.61248672625989e-257, NA, -Inf, 1.01362548601491e+74 ), .Dim = c(2L, 4L)))
result <- do.call(diveRsity:::diffCalcHarm,testlist)
str(result)