data("Chainlink")
SampleIdx = sample(1:1000, 200)
Data=Chainlink$Data[SampleIdx,]
Cls=Chainlink$Cls[SampleIdx]
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 R package 'ProjectionBasedClustering' for other common projection methods
# see DatabionicSwarm for projection method without parameters or objective function
# ProjectedPoints=DatabionicSwarm::Pswarm(Data)$ProjectedPoints
# \donttest{
resUmatrix=GeneralizedUmatrixGPU(Data,ProjectedPoints)
#library(GeneralizedUmatrix)
#plotTopographicMap(resUmatrix$Umatrix,resUmatrix$Bestmatches,Cls)
# }
Run the code above in your browser using DataLab