testlist <- list(hk = structure(c(6.57658146919641e+186, 6.26329028749919e-169, 3.65123916453763e+152, 1.80867886476511e-97, 3.5517347251084e-271, 5.17029651285128e-293, 1.2173394940709e-125, 5.37823090822506e-79, 8.07430465104601e+300, 2.96075623130968e+289, 1.04590869532787e-68, 6.72231442557402e-129), .Dim = c(2L, 6L)), mk = structure(c(7.59333633558835e-196, 1.67244064965443e+87, 1.21113389137572e+289, 1.66018254061754e+90, 2.10324613344103e+57, 2.96978398858476e+121, 5.69220691613506e+200, 6.43951191874179e-211, 1.40192528369618e-80, 3.06161464618547e-73, 3.63369197935844e-262, 4.32361575779144e+183, 1.80623836228347e-292, 1.66672080882018e-212, 4.7630966613182e-306, 5.38793438392187e-51, 2.979966182755e-73, 3.18603332021152e-205, 1.21673599461694e-27, 2.84763448459035e+162, 8.35347814441633e+191, 9.98888628454232e-213, 1.65027595753064e+244, 1.26552511022412e-141, 7.57006791094849e+251, 8.61010161635264e+71, 7.31332148324137e-82, 2.8162051827303e-160, 1.85641495035495e-35, 1.94132403627954e-266, 3.16850795242331e-152, 3.1814577499292e-256, 8.66406220385011e-193, 1.32963522186371e-175, 3.83457871597529e+75, 5.77703048910251e-236, 8.95040865456379e+68, 1.48652017304323e+153, 1.64144929322995e-204, 5.81133641200458e+258, 1.34970214268003e+77, 1.3597527274616e+112, 1.80548766984221e+84, 2.25144232899817e+227, 4.59997235820801e+297, 2.84410246450793e-244, 0.000119823615041407, 1.4051774685971e-239, 3.09396790812768e+184, 4.31429582794845e-21, 8.0342325776026e-142, 5.56314881805654e-214, 1.47673913585636e+154, 9.22074419988842e+47, 1.75248381293667e-239, 8.43360067233968e+98, 2.02823141028881e+233, 7.38205192210469e+296, 7.41271797006622e-60, 18270324716556777472, 4.87475900970384e+234, 1.1489945603319e+287, 3.46771355652753e-13, 2.24425762330721e-126, 2.70603816528335e+82, 7.38264193723808e+278, 2.90818941013781e+73, 5.55766892650894e+258, 2.10773277569769e-15, 2.87761828516983e+302 ), .Dim = c(10L, 7L)), n_steps = -1761561326L, nc = -1305837195L, nr = 142226120L, start = 570507707L) result <- do.call(amt:::simulate_udf,testlist) str(result)