library("broadcast")
x <- array(sample(month.abb), c(10, 2))
y <- array(sample(1:10), c(10, 2, 3))
print(x)
#> [,1] [,2]
#> [1,] "Mar" "Jan"
#> [2,] "Jun" "Dec"
#> [3,] "Apr" "Mar"
#> [4,] "Oct" "Jun"
#> [5,] "Sep" "Apr"
#> [6,] "Nov" "Oct"
#> [7,] "May" "Sep"
#> [8,] "Feb" "Nov"
#> [9,] "Aug" "May"
#> [10,] "Jul" "Feb"
print(y)
#> , , 1
#>
#> [,1] [,2]
#> [1,] 5 5
#> [2,] 4 4
#> [3,] 1 1
#> [4,] 2 2
#> [5,] 8 8
#> [6,] 6 6
#> [7,] 3 3
#> [8,] 9 9
#> [9,] 7 7
#> [10,] 10 10
#>
#> , , 2
#>
#> [,1] [,2]
#> [1,] 5 5
#> [2,] 4 4
#> [3,] 1 1
#> [4,] 2 2
#> [5,] 8 8
#> [6,] 6 6
#> [7,] 3 3
#> [8,] 9 9
#> [9,] 7 7
#> [10,] 10 10
#>
#> , , 3
#>
#> [,1] [,2]
#> [1,] 5 5
#> [2,] 4 4
#> [3,] 1 1
#> [4,] 2 2
#> [5,] 8 8
#> [6,] 6 6
#> [7,] 3 3
#> [8,] 9 9
#> [9,] 7 7
#> [10,] 10 10
bc_strrep(x, y)
#> , , 1
#>
#> [,1] [,2]
#> [1,] "MarMarMarMarMar" "JanJanJanJanJan"
#> [2,] "JunJunJunJun" "DecDecDecDec"
#> [3,] "Apr" "Mar"
#> [4,] "OctOct" "JunJun"
#> [5,] "SepSepSepSepSepSepSepSep" "AprAprAprAprAprAprAprApr"
#> [6,] "NovNovNovNovNovNov" "OctOctOctOctOctOct"
#> [7,] "MayMayMay" "SepSepSep"
#> [8,] "FebFebFebFebFebFebFebFebFeb" "NovNovNovNovNovNovNovNovNov"
#> [9,] "AugAugAugAugAugAugAug" "MayMayMayMayMayMayMay"
#> [10,] "JulJulJulJulJulJulJulJulJulJul" "FebFebFebFebFebFebFebFebFebFeb"
#>
#> , , 2
#>
#> [,1] [,2]
#> [1,] "MarMarMarMarMar" "JanJanJanJanJan"
#> [2,] "JunJunJunJun" "DecDecDecDec"
#> [3,] "Apr" "Mar"
#> [4,] "OctOct" "JunJun"
#> [5,] "SepSepSepSepSepSepSepSep" "AprAprAprAprAprAprAprApr"
#> [6,] "NovNovNovNovNovNov" "OctOctOctOctOctOct"
#> [7,] "MayMayMay" "SepSepSep"
#> [8,] "FebFebFebFebFebFebFebFebFeb" "NovNovNovNovNovNovNovNovNov"
#> [9,] "AugAugAugAugAugAugAug" "MayMayMayMayMayMayMay"
#> [10,] "JulJulJulJulJulJulJulJulJulJul" "FebFebFebFebFebFebFebFebFebFeb"
#>
#> , , 3
#>
#> [,1] [,2]
#> [1,] "MarMarMarMarMar" "JanJanJanJanJan"
#> [2,] "JunJunJunJun" "DecDecDecDec"
#> [3,] "Apr" "Mar"
#> [4,] "OctOct" "JunJun"
#> [5,] "SepSepSepSepSepSepSepSep" "AprAprAprAprAprAprAprApr"
#> [6,] "NovNovNovNovNovNov" "OctOctOctOctOctOct"
#> [7,] "MayMayMay" "SepSepSep"
#> [8,] "FebFebFebFebFebFebFebFebFeb" "NovNovNovNovNovNovNovNovNov"
#> [9,] "AugAugAugAugAugAugAug" "MayMayMayMayMayMayMay"
#> [10,] "JulJulJulJulJulJulJulJulJulJul" "FebFebFebFebFebFebFebFebFebFeb"bc_strrep
Broadcasted strrep
Description
The bc_strrep() method is a broadcasted form of strrep.
Usage
bc_strrep(x, y, ...)
## S4 method for signature 'ANY'
bc_strrep(x, y)
Arguments
x
|
vector/array of type character.
|
y
|
vector/array of type integer.
|
β¦
|
further arguments passed to or from methods. |
Value
A character array as a result of the broadcasted repetition operation.