Creating an AIC model selection table with model included

Solution 1:

Just to clarify for those interested in this question, I simply needed add width.cutoff=100L to the mnames line of code.

# create formula-like model names:
mnames <- apply(res[, i], 1, function(x)
  deparse(simplify.formula(reformulate(v[!is.na(x)], response = response)), width.cutoff = 100L))

It now works perfectly