# NOT RUN {
data("Chainlink")
Data=Chainlink$Data
Cls=Chainlink$Cls
InputDistances=as.matrix(dist(Data))
res=cmdscale(d=InputDistances, k = 2, eig = TRUE, add = FALSE, x.ret = FALSE)
ProjectedPoints=as.matrix(res$points)
#see also ProjectionBasedClustering package for other common projection methods
#see DatabionicSwarm for projection method without parameters or objective function
# ProjectedPoints=DatabionicSwarm::Pswarm(Data)$ProjectedPoints
# }
# NOT RUN {
resUmatrix=GeneralizedUmatrix(Data,ProjectedPoints)
plotTopographicMap(resUmatrix$Umatrix,resUmatrix$Bestmatches,Cls)
# }
# NOT RUN {
##Interactive Island Generation
## from a tiled Umatrix (toroidal assumption)
# }
# NOT RUN {
Imx = ProjectionBasedClustering::interactiveGeneralizedUmatrixIsland(resUmatrix$Umatrix,
resUmatrix$Bestmatches)
plotTopographicMap(resUmatrix$Umatrix,
resUmatrix$Bestmatches, Imx = Imx)
# }
# NOT RUN {
#External Verification
# }
# NOT RUN {
DataVisualizations::Heatmap(Data,Cls)
#if spherical cluster strcuture
DataVisualizations::SilhouettePlot(Data,Cls)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab