R/dcor.R

In ICGE: Estimation of Number of Clusters and Identification of Atypical Units

dcor<- function(x){
########## Correlation distance between pairs of objects ##################
# Input:
# x: data matrix
#
# Output:
# d: distance matrix
###########################################################################
    d <- sqrt(1-cor(t(x)))
    d <- as.dist(d)
    return(d)
}