data("Lsun3D")
Cls=Lsun3D$Cls
Data=Lsun3D$Data
InputDist=as.matrix(dist(Data))
res = stats::cmdscale(d = InputDist, k = 2, eig = TRUE,
add = FALSE, x.ret = FALSE)
# \donttest{
ProjectedPoints = as.matrix(res$points)
ShepardDensityScatter(InputDist,as.matrix(dist(ProjectedPoints)),main = 'MDS')
ShepardDensityScatter(InputDist[1:100,1:100],
as.matrix(dist(ProjectedPoints))[1:100,1:100],main = 'MDS')
# }
Run the code above in your browser using DataLab