data(McLachlan150)
str(McLachlan150)
# Example needs some computing time:
#d <- as.matrix(McLachlan150[,1:2])
#est.tle <- TLE(d~1,"mvtnormal",data=d,Density=FLXmclust.Density,
# Estimate=FLXmclust.Estimate,msglvl=1,nc=3,class="hard")
#tleplot(est.tle,as.data.frame(d),main="TLE Scatter Plot")
Run the code above in your browser using DataLab