# NOT RUN {
data("enzyme")
# It can be seen that there are two groups in this dataset
# Via exploratory tools
sizer(enzyme,bws=c(0.03,1))
modetree(enzyme,bws=c(0.02,1),logbw=TRUE,addplot=TRUE,col.lines="white")
#Via mode testing
modetest(enzyme)
# }
# NOT RUN {
modetest(enzyme,mod0=2)
# }
Run the code above in your browser using DataCamp Workspace