testlist <- list(alpha = -2.58415477423572e+161, epsilon = -2.89767803426152e+147,      sd = -4.20322213918319e+278, test = structure(c(3.89588227812997e-191,      9.2658811643261e+252, 2.04783711103864e-259, 5.17158945820015e-211,      2.50316732492756e-143, 3.31139437731749e-198, 5.6612553187895e+229     ), .Dim = c(1L, 7L)), threshold = 1.27466742134163e+188,      train = structure(c(7.74707591193182e-273, 1.13430089965462e-77,      3.72768878642028e-200, 9.07063098352915e-190, 9.08344329644839e+123,      1.78350633415466e+207, 5.64142357466501e-201, 6.2545794555446e-208,      1.01614794975659e+36, 8.0762824817865e+186), .Dim = c(1L,      10L)))
result <- do.call(ipft:::ipfPLGD,testlist)
str(result)