#taken from [Thrun/Ultsch, 2018]
data("ITS")
data("MTY")
Inds=which(ITS<900&MTY<8000)
plot(ITS[Inds],MTY[Inds],main='Bimodality is not visible in normal scatter plot')
# \donttest{
DensityContour(ITS[Inds],MTY[Inds],DensityEstimation="SDH",xlab = 'ITS in EUR',
ylab ='MTY in EUR' ,main='Smoothed Densities histogram indicates Bimodality' )
DensityContour(ITS[Inds],MTY[Inds],DensityEstimation="PDE",xlab = 'ITS in EUR',
ylab ='MTY in EUR' ,main='PDE indicates Bimodality' )
# }
# \dontshow{
DensityContour(ITS[1:10],MTY[1:10],xlab = 'ITS in EUR',
ylab ='MTY in EUR' ,main='Pareto Density Estimation indicates Bimodality' )
# }
Run the code above in your browser using DataLab