# NOT RUN {
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)
# }
# NOT RUN {
ShepardPDEscatter(InputDist,as.matrix(dist(ProjectedPoints)),main = 'MDS')
# }
Run the code above in your browser using DataLab