Best correspondence between classes given two vectors viewed as alternative classifications of the same object.

mapClass(a, b)

Arguments

a

A numeric or character vector of class labels.

b

A numeric or character vector of class labels. Must have the same length as a.

Value

A list with two named elements, aTOb and bTOa which are themselves lists. The aTOb list has a component corresponding to each unique element of a, which gives the element or elements of b that result in the closest class correspondence. The bTOa list has a component corresponding to each unique element of b, which gives the element or elements of a that result in the closest class correspondence.

See also

Examples

a <- rep(1:3, 3)
a
#> [1] 1 2 3 1 2 3 1 2 3
b <- rep(c("A", "B", "C"), 3)
b
#> [1] "A" "B" "C" "A" "B" "C" "A" "B" "C"
mapClass(a, b)
#> $aTOb
#> $aTOb$`1`
#> [1] "A"
#> 
#> $aTOb$`2`
#> [1] "B"
#> 
#> $aTOb$`3`
#> [1] "C"
#> 
#> 
#> $bTOa
#> $bTOa$A
#> [1] 1
#> 
#> $bTOa$B
#> [1] 2
#> 
#> $bTOa$C
#> [1] 3
#> 
#> 
a <- sample(1:3, 9, replace = TRUE)
a
#> [1] 3 2 1 3 3 3 1 3 3
b <- sample(c("A", "B", "C"), 9, replace = TRUE)
b
#> [1] "A" "A" "A" "C" "A" "C" "B" "C" "C"
mapClass(a, b)
#> $aTOb
#> $aTOb$`1`
#> [1] "A"
#> 
#> $aTOb$`2`
#> [1] "A"
#> 
#> $aTOb$`3`
#> [1] "C"
#> 
#> 
#> $bTOa
#> $bTOa$A
#> [1] 3
#> 
#> $bTOa$B
#> [1] 1
#> 
#> $bTOa$C
#> [1] 3
#> 
#>