R/Tabulate.r

In Beothuk/bio.utilities: Package that interacts with bio providing base-level generic routines to make your life easier.

#' @title Tabulate
#' @description unknown
#' @family abysmally documented
#' @author  unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
  Tabulate = function(f, data, varname="n") {
    xt = xtabs( f, data=data )
    out = as.data.frame.table( xt, responseName=varname )
    vars = all.vars(f)[-1]
    for (v in vars) out[,v] = as.character( out[,v] )
    out[,varname] = as.numeric( as.character( out[,varname] ) ) 
    return(out)
  }
   # ----------------------------------------