data(dPois)
str(dPois)
# Example needs some computing time:
# est.tle <- TLE(y~x,"poisson",data=dPois,Density=flexmix.Density,
# Estimate=flexmix.Estimate,msglvl=1,nc=2,kTrim=200,class="hard")
# tleplot(est.tle,dPois)
Run the code above in your browser using DataLab