# NOT RUN {
data(HCD)
str(HCD)
HCD
mat<-as.matrix(HCD[,-c(1)])
rownames(mat)<-HCD$Level
mosaicplot(mat, las=1)
estSimpsonf(X=HCD[,-c(1)], f=HCD$Level)
estShannonf(X=HCD[,-c(1)], f=HCD$Level)
# }
Run the code above in your browser using DataLab