nzbirds_list<-list(c("kea","tui"), c("kea","ruru","kaki"), c("ruru"),
c("tui","ruru"), c("tui","kea","ruru"), c("tauhou","kea"))
nzbirds_list
(msbirds<-as.ms(nzbirds_list))
(bird_mat <- unclass(msbirds))
as.ms(bird_mat)
Run the code above in your browser using DataLab