Fold a directed (n*n) vector into an undirected upper-triangle vector

Fold a directed (n*n) vector into an undirected upper-triangle vector

Usage

fold_directed_network(v, diagonal = FALSE)

Arguments

v

Numeric vector of length n*n

diagonal

Keep the diagonal (self-connections, each once): A & A, A & B, B & B, ...

Examples

m <- matrix(c(0, 1, 2,
              3, 0, 4,
              5, 6, 0), nrow = 3, byrow = TRUE)
fold_directed_network(as.vector(m))                   # A&B, A&C, B&C
#>      [,1] [,2] [,3]
#> [1,]    4    7   10
fold_directed_network(as.vector(m), diagonal = TRUE)
#>      [,1] [,2] [,3] [,4] [,5] [,6]
#> [1,]    0    4    0    7   10    0