Identifies unused codes across multiple S-matrices. Unused bands can be used to reduce the codebook as in Stammers (2011).
References
Stammers (2011) “Audio Event Classification for Urban Soundscape Analysis”. PhD thesis. University of York.
Examples
library(tuneR)
wave <- readWave(system.file("extdata", "1.wav", package="tdsc"))
t <- tdsc(wave)
emptyBands(t,t)
#> $missing
#> [1] 17 21 26 31 36 37 38 42 43 44 48 50 51 55 56 57 58 60 62
#> [20] 63 64 65 66 67 68 69 71 72 73 74 75 76 77 78 80 81 82 83
#> [39] 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
#> [58] 103 104 105
#>
#> $plot
#> x y
#> [1,] 1 1
#> [2,] 1 2
#> [3,] 1 3
#> [4,] 1 4
#> [5,] 1 5
#> [6,] 1 6
#> [7,] 1 7
#> [8,] 1 8
#> [9,] 1 9
#> [10,] 1 10
#> [11,] 1 11
#> [12,] 1 12
#> [13,] 1 13
#> [14,] 1 14
#> [15,] 1 15
#> [16,] 1 16
#> [17,] 1 18
#> [18,] 1 19
#> [19,] 1 20
#> [20,] 1 22
#> [21,] 1 23
#> [22,] 1 24
#> [23,] 1 25
#> [24,] 1 27
#> [25,] 1 28
#> [26,] 1 29
#> [27,] 1 30
#> [28,] 1 32
#> [29,] 1 33
#> [30,] 1 34
#> [31,] 1 35
#> [32,] 1 39
#> [33,] 1 40
#> [34,] 1 41
#> [35,] 1 45
#> [36,] 1 46
#> [37,] 1 47
#> [38,] 1 49
#> [39,] 1 52
#> [40,] 1 53
#> [41,] 1 54
#> [42,] 1 59
#> [43,] 1 61
#> [44,] 1 70
#> [45,] 1 79
#> [46,] 1 106
#> [47,] 2 1
#> [48,] 2 2
#> [49,] 2 3
#> [50,] 2 4
#> [51,] 2 5
#> [52,] 2 6
#> [53,] 2 7
#> [54,] 2 8
#> [55,] 2 9
#> [56,] 2 10
#> [57,] 2 11
#> [58,] 2 12
#> [59,] 2 13
#> [60,] 2 14
#> [61,] 2 15
#> [62,] 2 16
#> [63,] 2 18
#> [64,] 2 19
#> [65,] 2 20
#> [66,] 2 22
#> [67,] 2 23
#> [68,] 2 24
#> [69,] 2 25
#> [70,] 2 27
#> [71,] 2 28
#> [72,] 2 29
#> [73,] 2 30
#> [74,] 2 32
#> [75,] 2 33
#> [76,] 2 34
#> [77,] 2 35
#> [78,] 2 39
#> [79,] 2 40
#> [80,] 2 41
#> [81,] 2 45
#> [82,] 2 46
#> [83,] 2 47
#> [84,] 2 49
#> [85,] 2 52
#> [86,] 2 53
#> [87,] 2 54
#> [88,] 2 59
#> [89,] 2 61
#> [90,] 2 70
#> [91,] 2 79
#> [92,] 2 106
#>