# The Gower similarity index

gower.R

# The Gower similarity index
gower <- function(p1, p2, max, min){
  if (length(p1) != length(p2)) 
    stop("'p1' and 'p2' must have the same length")
  k <- length(p1)
  range <- max - min
  d <- sum(abs(p1 - p2) / range)
  gs <- 1 - d / k
  return(gs)
}