Returns a new matrix, where the entries of the original matrix are repeated along both dimensions.

repmatrix(x, times = 1, each = 1, times.row = times, times.col = times,
each.row = each, each.col = each, ...)

## Arguments

x a matrix how often the matrix should be replicated next to itself how often individual cells should be replicated next to themselves number of vertical repetitions of the matrix, overrides times number of horizontal repetitions of the matrix, overrides times number of vertical repetitions of individual elements, overrides each number of horizontal repetitions of individual elements, overrides each not used

## Value

A matrix, which will have times*each times more rows and columns than the original matrix.

rep

## Examples

repmatrix(diag(4))#>      [,1] [,2] [,3] [,4]
#> [1,]    1    0    0    0
#> [2,]    0    1    0    0
#> [3,]    0    0    1    0
#> [4,]    0    0    0    1repmatrix(diag(4), times=2)#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
#> [1,]    1    0    0    0    1    0    0    0
#> [2,]    0    1    0    0    0    1    0    0
#> [3,]    0    0    1    0    0    0    1    0
#> [4,]    0    0    0    1    0    0    0    1
#> [5,]    1    0    0    0    1    0    0    0
#> [6,]    0    1    0    0    0    1    0    0
#> [7,]    0    0    1    0    0    0    1    0
#> [8,]    0    0    0    1    0    0    0    1repmatrix(diag(4), each=2)#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
#> [1,]    1    1    0    0    0    0    0    0
#> [2,]    1    1    0    0    0    0    0    0
#> [3,]    0    0    1    1    0    0    0    0
#> [4,]    0    0    1    1    0    0    0    0
#> [5,]    0    0    0    0    1    1    0    0
#> [6,]    0    0    0    0    1    1    0    0
#> [7,]    0    0    0    0    0    0    1    1
#> [8,]    0    0    0    0    0    0    1    1repmatrix(diag(3), times=2, each=2)#>       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
#>  [1,]    1    1    0    0    0    0    1    1    0     0     0     0
#>  [2,]    1    1    0    0    0    0    1    1    0     0     0     0
#>  [3,]    0    0    1    1    0    0    0    0    1     1     0     0
#>  [4,]    0    0    1    1    0    0    0    0    1     1     0     0
#>  [5,]    0    0    0    0    1    1    0    0    0     0     1     1
#>  [6,]    0    0    0    0    1    1    0    0    0     0     1     1
#>  [7,]    1    1    0    0    0    0    1    1    0     0     0     0
#>  [8,]    1    1    0    0    0    0    1    1    0     0     0     0
#>  [9,]    0    0    1    1    0    0    0    0    1     1     0     0
#> [10,]    0    0    1    1    0    0    0    0    1     1     0     0
#> [11,]    0    0    0    0    1    1    0    0    0     0     1     1
#> [12,]    0    0    0    0    1    1    0    0    0     0     1     1repmatrix(diag(4), each.row=2)#>      [,1] [,2] [,3] [,4]
#> [1,]    1    0    0    0
#> [2,]    1    0    0    0
#> [3,]    0    1    0    0
#> [4,]    0    1    0    0
#> [5,]    0    0    1    0
#> [6,]    0    0    1    0
#> [7,]    0    0    0    1
#> [8,]    0    0    0    1repmatrix(diag(4), times.row=2)#>      [,1] [,2] [,3] [,4]
#> [1,]    1    0    0    0
#> [2,]    0    1    0    0
#> [3,]    0    0    1    0
#> [4,]    0    0    0    1
#> [5,]    1    0    0    0
#> [6,]    0    1    0    0
#> [7,]    0    0    1    0
#> [8,]    0    0    0    1