This table is actually an array.
x <- c(0,1,1,1,0,2,2,4,1,2,3,2,1,2,3,1,1,1,2,3,4,1,1,0) (a <- table(x))
His names are on top, and the meanings below.
names(a) [1] "0" "1" "2" "3" "4"
You can access your items in several ways.
a[1] ## access named element by index # 0 # 3 a[[1]] ## access unnamed element by index # [1] 3 a["0"] ## access named element by name # 0 # 3 a[["0"]] ## access unnamed element by name # [1] 3 as.vector(a) ## as.vector() drops table down to unnamed vector # [1] 3 10 6 3 2 c(a)[2:4] ## c() drops table down to named vector # 1 2 3 # 10 6 3 class(a[2:4]) # [1] "array" class(c(a)[2:4]) # [1] "integer"
It also has the nrow
and dim
attribute, which is configured on the last few lines of table
.
y <- array(tabulate(bin, pd), dims, dimnames = dn) class(y) <- "table"
Although I really do not understand why nrow(a)
is 5, but a[1,]
returns an error.