Replace matrix values triangular upper part and by band for the lower part.

Source: R/global.R

F matrices utility function.

replaceUp(a, b, k)

Arguments

a

The matrix to be replaced

b

The matrix with the replacement values

k

The extend of the replacement: 0 (upper part only), 1 (upper part and first extra diagonal), in general an entry is replaced if (row(a) - col(a)) <= k

Value

A matrix (same size as a)

Author

Bertrand Frederic, Myriam Maumy-Bertrand.

Examples


a=matrix(1:9,3,3)
b=matrix(1,3,3)
replaceUp(a,b,0)
#>      [,1] [,2] [,3]
#> [1,]    1    1    1
#> [2,]    2    1    1
#> [3,]    3    6    1
replaceUp(a,b,1)
#>      [,1] [,2] [,3]
#> [1,]    1    1    1
#> [2,]    1    1    1
#> [3,]    3    1    1
replaceUp(a,b,2)
#>      [,1] [,2] [,3]
#> [1,]    1    1    1
#> [2,]    1    1    1
#> [3,]    1    1    1