Capítulo 12 Array

# -----------------------------------------------------------------------------
# Arrays
# -----------------------------------------------------------------------------
array()

## [1] NA

ar = array(letters[1:24],
           c(2, 4, 3))  # 2 linhas, 4 colunas, 3 dimensões
ar

## , , 1
## 
##      [,1] [,2] [,3] [,4]
## [1,] "a"  "c"  "e"  "g" 
## [2,] "b"  "d"  "f"  "h" 
## 
## , , 2
## 
##      [,1] [,2] [,3] [,4]
## [1,] "i"  "k"  "m"  "o" 
## [2,] "j"  "l"  "n"  "p" 
## 
## , , 3
## 
##      [,1] [,2] [,3] [,4]
## [1,] "q"  "s"  "u"  "w" 
## [2,] "r"  "t"  "v"  "x"

ar[1, 1, 1]  # ar[linha, coluna, dimensão] -> ar(x, y, z)

## [1] "a"

ar[1, 1, 2]

## [1] "i"

ar[1, 2, 3]

## [1] "s"

ar[1, 2:4, 1]

## [1] "c" "e" "g"

# Nomeando um array
dimnames(ar) = list(1:2,#tem que ter comprimento igual ao número de linhas
                    1:4,#tem que ter comprimento igual ao número de colunas
                    c(list('A'),list('B'),list('C')))
                    
dimnames(ar) = list(NULL,#tem que ter comprimento igual ao número de linhas
                    NULL,#tem que ter comprimento igual ao número de colunas
                    c(list('A'),list('B'),list('C')))