Depois decbind ourbind - em um objeto de tabela (por exemplo, adicionando uma margem de somas ou algo assim), os nomes dos dimnames se perdem (consultey). Eu encontrei essa "solução alternativa", mas estava pensando se há uma solução pronta para isso que parece menos invasiva. Talvez algo que possa ser feito em tempo real? Eu gostaria de manter o objeto da classetable.

>   (x <- table(1:3, sample(1:3), dnn = c("rows", "cols")))
    cols
rows 1 2 3
   1 1 0 0
   2 0 0 1
   3 0 1 0
>   (y <- cbind(x, "4" = 4:6)) # "rows" and "cols" get lost
  1 2 3 4
1 1 0 0 4
2 0 0 1 5
3 0 1 0 6
> names(dimnames(y)) <- names(dimnames(x))
> y
    cols
rows 1 2 3 4
   1 1 0 0 4
   2 0 0 1 5
   3 0 1 0 6