data("Lsun3D")
Data=Lsun3D$Data
# \donttest{
Pixelmatrix(Data)
# }
# \donttest{
InspectDistances(as.matrix(dist(Data)))
# }
MAlist=MAplot(ITS,MTY)
data("Lsun3D")
Cls=Lsun3D$Cls
Data=Lsun3D$Data
#clear cluster structure
plot(Data[,1:2],col=Cls)
#However, the silhouette plot does not indicate a very good clustering in cluster 1 and 2
# \donttest{
Silhouetteplot(Data,Cls = Cls)
# }
# \donttest{
Heatmap(as.matrix(dist(Data)),Cls = Cls)
# }
Run the code above in your browser using DataLab