a <- c(rep("oak",5) ,rep("ash",2),rep("elm",3),rep("xx",4))
as.count(a)
data(saunders)
as.count(saunders[1,-(1:150)])
jj <- sample(1:5,5,replace=TRUE)
as.count(jj)
as.count(jj,add="spp.")
Run the code above in your browser using DataCamp Workspace