# NOT RUN {
# }
# NOT RUN {
data(porto)
fire01meantemp=na.omit(fire01meantemp)
u=fire01meantemp
jt.dens<-kde(u,gridsize = 200)
ltl<-densi.curv.em(kdetab=jt.dens,lines2=ltlo, tl="l", lines=ltl)
# }
Run the code above in your browser using DataLab