x <- data.frame(A = sample(c("X", "Y", "Z"), 100, replace = TRUE))
print_multinomial(x, label = "A")
x2 <- rbind(x, data.frame(A = rep("Level A", length(x[x == "Level X", ]))))
print_multinomial(
x,
label = "Variable A",
sort = FALSE,
n = 90,
digits = 2,
width = 5
)
Run the code above in your browser using DataLab