Permute labels of a matrix

This function permutes the labels of a matrix.

Usage

perm_label(A, m = 1, unique = FALSE)

Arguments

A

A matrix

m

Number of permutations

unique

Whether to return unique cases

Value

This function returns the permutation of labels.

Author

Alejandro Espinosa-Rada

Examples

W <- matrix(c(
  0, 1, 0, 0, 0,
  0, 0, 1, 0, 0,
  1, 0, 0, 0, 0,
  0, 0, 0, 0, 1,
  0, 0, 0, 1, 0
), byrow = TRUE, ncol = 5)
rownames(W) <- c("P", "Q", "R", "S", "T")
colnames(W) <- rownames(W)
perm_label(W, m = 1000, unique = TRUE)
#>        [,1] [,2] [,3] [,4] [,5]
#>   [1,] "P"  "R"  "T"  "Q"  "S" 
#>   [2,] "S"  "T"  "R"  "Q"  "P" 
#>   [3,] "R"  "T"  "Q"  "P"  "S" 
#>   [4,] "Q"  "R"  "P"  "S"  "T" 
#>   [5,] "Q"  "R"  "P"  "T"  "S" 
#>   [6,] "R"  "Q"  "T"  "P"  "S" 
#>   [7,] "T"  "R"  "P"  "Q"  "S" 
#>   [8,] "P"  "R"  "S"  "Q"  "T" 
#>   [9,] "T"  "P"  "Q"  "S"  "R" 
#>  [10,] "T"  "Q"  "P"  "S"  "R" 
#>  [11,] "T"  "S"  "Q"  "P"  "R" 
#>  [12,] "Q"  "P"  "S"  "R"  "T" 
#>  [13,] "S"  "T"  "P"  "R"  "Q" 
#>  [14,] "P"  "Q"  "R"  "S"  "T" 
#>  [15,] "P"  "R"  "Q"  "T"  "S" 
#>  [16,] "T"  "Q"  "R"  "S"  "P" 
#>  [17,] "S"  "R"  "T"  "P"  "Q" 
#>  [18,] "T"  "P"  "R"  "S"  "Q" 
#>  [19,] "Q"  "R"  "T"  "P"  "S" 
#>  [20,] "S"  "R"  "P"  "Q"  "T" 
#>  [21,] "S"  "Q"  "P"  "R"  "T" 
#>  [22,] "Q"  "P"  "T"  "R"  "S" 
#>  [23,] "P"  "R"  "T"  "S"  "Q" 
#>  [24,] "Q"  "S"  "R"  "T"  "P" 
#>  [25,] "P"  "T"  "S"  "Q"  "R" 
#>  [26,] "T"  "Q"  "R"  "P"  "S" 
#>  [27,] "T"  "S"  "R"  "P"  "Q" 
#>  [28,] "T"  "R"  "Q"  "S"  "P" 
#>  [29,] "T"  "S"  "R"  "Q"  "P" 
#>  [30,] "R"  "P"  "Q"  "T"  "S" 
#>  [31,] "Q"  "T"  "P"  "S"  "R" 
#>  [32,] "S"  "T"  "Q"  "R"  "P" 
#>  [33,] "Q"  "R"  "T"  "S"  "P" 
#>  [34,] "S"  "T"  "Q"  "P"  "R" 
#>  [35,] "T"  "P"  "S"  "Q"  "R" 
#>  [36,] "T"  "P"  "Q"  "R"  "S" 
#>  [37,] "Q"  "P"  "T"  "S"  "R" 
#>  [38,] "S"  "R"  "P"  "T"  "Q" 
#>  [39,] "Q"  "T"  "P"  "R"  "S" 
#>  [40,] "S"  "R"  "Q"  "T"  "P" 
#>  [41,] "R"  "T"  "S"  "P"  "Q" 
#>  [42,] "P"  "S"  "R"  "Q"  "T" 
#>  [43,] "P"  "S"  "R"  "T"  "Q" 
#>  [44,] "R"  "S"  "P"  "T"  "Q" 
#>  [45,] "R"  "T"  "Q"  "S"  "P" 
#>  [46,] "P"  "T"  "R"  "S"  "Q" 
#>  [47,] "R"  "Q"  "T"  "S"  "P" 
#>  [48,] "S"  "P"  "T"  "R"  "Q" 
#>  [49,] "S"  "Q"  "T"  "R"  "P" 
#>  [50,] "T"  "P"  "S"  "R"  "Q" 
#>  [51,] "R"  "P"  "S"  "T"  "Q" 
#>  [52,] "R"  "S"  "Q"  "T"  "P" 
#>  [53,] "R"  "T"  "P"  "S"  "Q" 
#>  [54,] "R"  "S"  "T"  "P"  "Q" 
#>  [55,] "R"  "P"  "T"  "Q"  "S" 
#>  [56,] "P"  "Q"  "S"  "R"  "T" 
#>  [57,] "P"  "T"  "R"  "Q"  "S" 
#>  [58,] "R"  "P"  "T"  "S"  "Q" 
#>  [59,] "T"  "R"  "S"  "Q"  "P" 
#>  [60,] "S"  "R"  "T"  "Q"  "P" 
#>  [61,] "P"  "Q"  "T"  "S"  "R" 
#>  [62,] "R"  "P"  "Q"  "S"  "T" 
#>  [63,] "Q"  "S"  "T"  "R"  "P" 
#>  [64,] "Q"  "T"  "S"  "R"  "P" 
#>  [65,] "T"  "P"  "R"  "Q"  "S" 
#>  [66,] "Q"  "T"  "R"  "S"  "P" 
#>  [67,] "R"  "T"  "S"  "Q"  "P" 
#>  [68,] "Q"  "R"  "S"  "T"  "P" 
#>  [69,] "T"  "S"  "P"  "Q"  "R" 
#>  [70,] "T"  "S"  "Q"  "R"  "P" 
#>  [71,] "S"  "Q"  "T"  "P"  "R" 
#>  [72,] "S"  "Q"  "R"  "T"  "P" 
#>  [73,] "P"  "T"  "Q"  "S"  "R" 
#>  [74,] "T"  "S"  "P"  "R"  "Q" 
#>  [75,] "P"  "S"  "Q"  "T"  "R" 
#>  [76,] "R"  "Q"  "S"  "T"  "P" 
#>  [77,] "P"  "Q"  "S"  "T"  "R" 
#>  [78,] "P"  "R"  "S"  "T"  "Q" 
#>  [79,] "R"  "S"  "T"  "Q"  "P" 
#>  [80,] "R"  "P"  "S"  "Q"  "T" 
#>  [81,] "P"  "S"  "T"  "Q"  "R" 
#>  [82,] "R"  "T"  "P"  "Q"  "S" 
#>  [83,] "Q"  "P"  "S"  "T"  "R" 
#>  [84,] "R"  "Q"  "S"  "P"  "T" 
#>  [85,] "T"  "R"  "Q"  "P"  "S" 
#>  [86,] "S"  "P"  "R"  "T"  "Q" 
#>  [87,] "P"  "R"  "Q"  "S"  "T" 
#>  [88,] "P"  "T"  "Q"  "R"  "S" 
#>  [89,] "P"  "S"  "Q"  "R"  "T" 
#>  [90,] "S"  "Q"  "P"  "T"  "R" 
#>  [91,] "S"  "T"  "R"  "P"  "Q" 
#>  [92,] "Q"  "R"  "S"  "P"  "T" 
#>  [93,] "Q"  "S"  "T"  "P"  "R" 
#>  [94,] "T"  "R"  "S"  "P"  "Q" 
#>  [95,] "Q"  "S"  "R"  "P"  "T" 
#>  [96,] "Q"  "P"  "R"  "T"  "S" 
#>  [97,] "Q"  "S"  "P"  "T"  "R" 
#>  [98,] "T"  "Q"  "S"  "P"  "R" 
#>  [99,] "R"  "S"  "Q"  "P"  "T" 
#> [100,] "R"  "S"  "P"  "Q"  "T" 
#> [101,] "P"  "Q"  "T"  "R"  "S" 
#> [102,] "Q"  "T"  "R"  "P"  "S" 
#> [103,] "P"  "Q"  "R"  "T"  "S" 
#> [104,] "S"  "P"  "R"  "Q"  "T" 
#> [105,] "P"  "S"  "T"  "R"  "Q" 
#> [106,] "S"  "P"  "Q"  "T"  "R" 
#> [107,] "Q"  "S"  "P"  "R"  "T" 
#> [108,] "R"  "Q"  "P"  "S"  "T" 
#> [109,] "Q"  "P"  "R"  "S"  "T" 
#> [110,] "P"  "T"  "S"  "R"  "Q" 
#> [111,] "S"  "Q"  "R"  "P"  "T" 
#> [112,] "S"  "P"  "Q"  "R"  "T" 
#> [113,] "R"  "Q"  "P"  "T"  "S" 
#> [114,] "S"  "P"  "T"  "Q"  "R" 
#> [115,] "T"  "R"  "P"  "S"  "Q" 
#> [116,] "S"  "T"  "P"  "Q"  "R" 
#> [117,] "T"  "Q"  "S"  "R"  "P" 
#> [118,] "Q"  "T"  "S"  "P"  "R" 
#> [119,] "S"  "R"  "Q"  "P"  "T" 
#> [120,] "T"  "Q"  "P"  "R"  "S"