Ввод таблицы сопряженности вручную в R

Question

Привет, у меня есть следующий код в R,

> trial <- matrix(c(6,9,6,5,2,2,5,8,5,3,2,4,6,8,8), ncol=5,byrow=T)
> colnames(trial) <- c('Never','Rarely','Sometimes', 'Often' ,'Always')
> rownames(trial) <- c('Walk', 'Bus','Drive')

> trial
      Never Rarely Sometimes Often Always
Walk      6      9         6     5      2
Bus       2      5         8     5      3
Drive     2      4         6     8      8

Однако я хочу;

Breakfast  Never  Rarely  Sometimes Often  Always
Travel
Walk         6      9       6         5      2
Bus          2      5       8         5      3
Drive        2      4       6         8      8

т.е. таблица непредвиденных обстоятельств, где на завтрак есть варианты «никогда», «редко» и т. д. и у Travel есть варианты Прогулка, автобус и т. д. Спасибо

Answer 1

Ответы любезно предоставлены: Сальваторе С. Мангифико, доктор философии

trial <- matrix(c(6,9,6,5,2,2,5,8,5,3,2,4,6,8,8), ncol=5,byrow=T)
colnames(trial) <- c('Never','Rarely','Sometimes', 'Often' ,'Always')
rownames(trial) <- c('Walk', 'Bus','Drive')

Trial = as.table(trial)

dimnames(Trial)
names(dimnames(Trial)) = c("Transport", "Breakfast")