# NOT RUN {
#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')
# }
# NOT RUN {
DensityScatter(ITS[Inds],MTY[Inds],DensityEstimation="SDH",xlab = 'ITS in EUR',
ylab ='MTY in EUR' ,main='Smoothed Densities histogram indicates Bimodality' )
DensityScatter(ITS[Inds],MTY[Inds],DensityEstimation="PDE",xlab = 'ITS in EUR',
ylab ='MTY in EUR' ,main='PDE indicates Bimodality' )
# }
Run the code above in your browser using DataLab