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)
ProjectedPoints = as.matrix(res$points)
# \donttest{
Sheparddiagram(InputDist,as.matrix(dist(ProjectedPoints)),main = 'MDS')
# }
# \dontshow{
Sheparddiagram(InputDist[1:100,1:100],as.matrix(dist(ProjectedPoints))[1:100,1:100],main = 'MDS')
# }
Run the code above in your browser using DataLab