diff --git a/R/ctable.R b/R/ctable.R index f69e2122..12c163c6 100644 --- a/R/ctable.R +++ b/R/ctable.R @@ -127,7 +127,7 @@ ctable.formula <- function(x, data, ...){ } y <- data[[vars[resp]]] x <- data[[vars[-resp]]] - ctable.default(x, y, ...) + ctable.default(x, y, dnn = vars[c(2,1)], ...) } ## Default S3 method