Convert metrics to entropy calculation
Examples
crps <- rbits(c(5, 50))
m <- metrics(crps)
m
#> $reliability
#> [1] NA
#>
#> $devices
#> [1] 1 2 3 4 5
#>
#> $challenges
#> [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
#> [26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
#>
#> $uniformity
#> [1] 0.48 0.48 0.42 0.44 0.46
#>
#> $bitaliasing
#> [1] 0.4 0.4 0.6 0.6 0.4 0.4 1.0 0.4 0.2 0.2 0.4 0.6 0.2 0.4 0.8 0.8 0.4 0.2 0.6
#> [20] 0.4 0.2 0.4 0.4 0.6 0.8 0.2 0.2 0.4 0.4 0.4 0.4 0.4 0.2 0.8 0.2 0.4 0.4 0.6
#> [39] 0.6 0.4 0.4 0.4 0.4 0.4 0.4 0.2 0.8 0.2 1.0 0.8
#>
#> $uniqueness
#> [1] 0.48 0.50 0.56 0.46 0.42 0.56 0.66 0.38 0.44 0.46
#>
#> attr(,"class")
#> [1] "pufmetrics"
with_entropy(m)
#> $reliability
#> [1] NA
#>
#> $devices
#> [1] 1 2 3 4 5
#>
#> $challenges
#> [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
#> [26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
#>
#> $uniformity
#> [1] 0.9988455 0.9988455 0.9814539 0.9895875 0.9953784
#>
#> $bitaliasing
#> [1] 0.9709506 0.9709506 0.9709506 0.9709506 0.9709506 0.9709506 0.0000000
#> [8] 0.9709506 0.7219281 0.7219281 0.9709506 0.9709506 0.7219281 0.9709506
#> [15] 0.7219281 0.7219281 0.9709506 0.7219281 0.9709506 0.9709506 0.7219281
#> [22] 0.9709506 0.9709506 0.9709506 0.7219281 0.7219281 0.7219281 0.9709506
#> [29] 0.9709506 0.9709506 0.9709506 0.9709506 0.7219281 0.7219281 0.7219281
#> [36] 0.9709506 0.9709506 0.9709506 0.9709506 0.9709506 0.9709506 0.9709506
#> [43] 0.9709506 0.9709506 0.9709506 0.7219281 0.7219281 0.7219281 0.0000000
#> [50] 0.7219281
#>
#> $uniqueness
#> [1] 0.48 0.50 0.56 0.46 0.42 0.56 0.66 0.38 0.44 0.46
#>
#> attr(,"class")
#> [1] "pufmetrics"