R/table.line.R

Defines functions table.line

table.line <- function(x){
  x.table <- table(x)
  x.names <- names(x.table)
  tmp <- paste(c(rbind(x.names,paste(as.vector(x.table),",",sep=""))), collapse=":")
  gsub(",:",", ",tmp)
}
fischuu/Luke documentation built on Aug. 30, 2022, 10:07 a.m.