testlist <- list(cell = -1007985803L, x = 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)), y = structure(c(4.71727387541793e-75, 2.98962599613851e-36, 1.44019333353852e-33, 2.16906432662576e-76), .Dim = c(1L, 4L))) result <- do.call(remote:::respLmParam,testlist) str(result)