Skip to content

Instantly share code, notes, and snippets.

@coppeliaMLA

coppeliaMLA/busterExample1.R

Created July 8, 2014 16:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save coppeliaMLA/13a5122c5d7340398d08 to your computer and use it in GitHub Desktop.
Save coppeliaMLA/13a5122c5d7340398d08 to your computer and use it in GitHub Desktop.
Download ZIP
Buster Example 1
Raw
busterExample1.R
#Testing on the iris data set
iris.dist<-dist(iris[,1:4])
bhc<-buster(iris.dist, n=250, k=3, size=0.66, method='ward', pct.exc=0.1)
plot(bhc)
#We see the unstable observations in pink.
cluster<-bhc$obs.eval$cluster[order(bhc$obs.eval$obs.ind)]
plot(iris[,1:4], col=6-cluster, pch = rep(15:17, each=50))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment