R/affinity.R

Defines functions affinity

affinity <- function(data, K = 20, alpha = 0.5) {
  data <- (dist2(as.matrix(data),as.matrix(data)))^(1/2)
  data <- affinityMatrix(data, K, alpha)

  return(data)
}
GaoLabXDU/CEPICS documentation built on June 9, 2020, 2:31 a.m.