testlist <- list(x = structure(c(NA, Inf, 4599873890604020224, 1.51667032522555e-225,  6.61248672625989e-257, NA, -Inf, 1.01362548601491e+74), .Dim = c(2L,  4L)), y = 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))
result <- do.call(lpirfs:::ols_diagnost,testlist)
str(result)