# NOT RUN {
data("Lsun3D")
Data=Lsun3D$Data
# }
# NOT RUN {
Pixelmatrix(Data)
# }
# NOT RUN {
# }
# NOT RUN {
InspectDistances(as.matrix(dist(Data)))
# }
# NOT RUN {
data("ITS")
data("MTY")
Inds=which(ITS<900&MTY<8000)
plot(ITS[Inds],MTY[Inds],main='Bimodality is not visible in normal scatter plot')
# }
# NOT RUN {
PDEscatter(ITS[Inds],MTY[Inds],xlab = 'ITS in EUR',
ylab ='MTY in EUR' ,main='Pareto Density Estimation indicates Bimodality' )
# }
# NOT RUN {
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
# }
# NOT RUN {
Silhouetteplot(Data,Cls = Cls)
# }
# NOT RUN {
Heatmap(as.matrix(dist(Data)),Cls = Cls)
# }
Run the code above in your browser using DataLab