another table function

Here another table() function for R users, which could output 0 for unused categories.

table2=function(data, classs) {

 nclass=length(classs)

 vec = rep(0,nclass)

 names(vec)=classs 

 tdata=table(data)

 vec[names(tdata)]=as.numeric(tdata)

 return(vec)

}