data(SimulatedAmounts)
data5 <- acomp(sa.outliers5)
cl <- ClusterFinder1(data5,sigma=0.4,radius=1)
plot(data5,col=as.numeric(cl$types),pch=as.numeric(cl$types))
legend(1,1,legend=levels(cl$types),xjust=1,col=1:length(levels(cl$types)),
pch=1:length(levels(cl$types)))
Run the code above in your browser using DataLab