GHCsource/codes/archive/runSHC.R

In saeidamiri1/GHC: General Hybrid Clustering Technique

# Load Spiral data from Github
datasource <- "https://github.com/saeidamiri1/GHC/blob/master/SPIRAL.RData?raw=true"
load(url(datasource))
Spiral
plot(Spiral)

# Load the source from Github
source('https://raw.githubusercontent.com/saeidamiri1/GHC/master/SHC.R')


library("foreach")
library("doParallel")

# To find the cluster of size of 3
CLUS<-SHC(Spiral,3,B=200)
CLUS
plot(Spiral,col=CLUS)


# To estimate the size of clusters
EK(Spiral,B=200)