cutCalculation function

Description

Compute intra and inter-cluster cuts from the similarity matrix of a dataset.

Usage

cutCalculation(similarity, label, K)

Arguments

Details

intra cluster cut :

Cut(g_{k},g_{l}) = ∑_{i=1,x(i)in g_{k}}^{N_{p}}∑_{j=1,x(j)in g_{l}}^{N_{p}}w(x(i),x(j))

Value

The function returns a list containing:

Examples

x<-rbind(matrix(runif(100),ncol=2),matrix(runif(100)+2,ncol=2),matrix(runif(20)*3,ncol=2))
similarity<-ZPGaussianSimilarity(x,7)%*%t(ZPGaussianSimilarity(x,7))
km<-kmeans(similarity,2)
label<-km$cluster
plot(x,col=km$cluster)
cutCalculation(similarity,label,length(unique(label)))

Results