# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.