data(ethnicity)
mtable(ethnicity)
table(as.character(ethnicity))
data(nzbirds)
nzbirds<-as.mr(nzbirds)
## co-occurence table
mtable(nzbirds, nzbirds)
## table by a factor
v<-rep(c("A","B"),3)
mtable(nzbirds,v)
data(nzbirds)
mtable(nzbirds>0)
Run the code above in your browser using DataLab