library(denpro)
dendat<-sim.data(n=100,seed=1,type="mulmodII")
et<-densplit(dendat)
treeseq<-prune(et)
estiseq<-lstseq.cart(treeseq,maxleaf=20,lstree=TRUE)
mt<-modegraph(estiseq)
plotmodet(mt)
#scaletable(estiseq)
Run the code above in your browser using DataLab