data(gaussData)
str(gaussData)
# Example needs some computing time:
# estimate
# est.tle <- TLE(y~x,"gaussian",data=gaussData,Density=flexmix.Density,
# Estimate=flexmix.Estimate,msglvl=1,nc=2,class="hard")
# plot data indicating clusters
# tleplot(est.tle,gaussData,main="TLE Scatter Plot")
Run the code above in your browser using DataLab