list.table.chart(model.list, M = 100, linespace = 4, ytick = NULL,
dates = NULL, main = paste("Word Appearance for ", attr(model.list,
"topic"), "\n(Method: ", attr(model.list, "method"), ")", sep = ""),
xlab = "Model", mar = c(3, 5, 2.5, 0.1), ...)