R 矩阵matrix

> TeaTasting <-

+ matrix(c(3, 1, 2, 3),

+        nrow = 2,

+        dimnames = list(Guess = c("Milk", "Tea"),

+                        Truth = c("Milk", "Tea")))

> TeaTasting

      Truth

Guess  Milk Tea

  Milk    3   2

  Tea     1   3

----------------------------------------------------------

mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol=3, byrow=TRUE,

+                dimnames = list(c("row1", "row2"),

+                                c("C.1", "C.2", "C.3")))

> mdat

     C.1 C.2 C.3

row1   1   2   3

row2  11  12  13