testlist <- list(flag_dct16x16 = -1383637607L, height = -104623617L, ipixelsR = structure(c(6.83527562034798e+216,  1.53202272043618e-302, 1.41787155147435e-08, 3.72303185883943e+298,  6.51587951468459e-135, 1.83098279453588e+183, 1.37554688429754e+245,  9.44945067898314e+221, 2.09002826581469e-162, 2.68776248991821e-226,  52954341.8469443, 2.88904712769312e-08, 3.89467456943268e+113,  2.11385310190976e+157, 4.23199730585041e-126, 9868.13322961364,  5.26704513624305e-122, 5.954481271761e-145, 1.72567383086934e+78,  245312846853830464, 8.55245488926812e+284, 4.31603929797374e+109,  2.14738030347722e-236, 6.10555683768843e-112, 4.67255916244005e-186,  4.07920108032875e+83, 1.75383420980147e+96, 1.37415124916118e+131,  2.28368437656345e+82, 3.64976570996156e+35, 2.3551047150238e-35,  5.74236130789622e+299, 3.18444278618006e-102, 3.79961222219018e-29,  2.08535681446143e-131, 5.8425916321997e+298, 5.85186317161322e-141,  1.21595908776598e+128, 5.53283081741748e+146, 6.63796654892532e+286,  4.39445502391759e-54, 8.51493651884904e-221, 9.05431781048598e-281,  1.98155720947653e+196, 7.05552933523475e-102), .Dim = c(9L, 5L )), sigma = -3.23304277076484e-229, width = -1869753920L)
result <- do.call(imagerExtra:::DCTdenoising,testlist)
str(result)