R/factordist.R

In markajoc/condvis: Conditional Visualization for Statistical Models

## Function to calculate a rough Hamming-style distance between categorical
## elements of data points. Not currently in use 2016-05-31.

factormatchratio <-
function(x, X)
{
  x <- as.matrix(x)
  X <- if (is.null(dim(X)))
    matrix(X, ncol = length(x))
  else as.matrix(X)
  mp <- rowSums(X == matrix(x, ncol = length(x), nrow = nrow(X), byrow = TRUE)
    ) / length(x)
}