This function converts a table to a numeric vector.
     
    
    
    Arguments
- x
- A table to be converted. 
 
    
    Value
    A numeric vector with names preserved from the table.
     
    
    Examples
    # Convert a table to numeric
tbl <- table(c("a", "b", "a"))
tableToNumeric(tbl)
#> a b 
#> 2 1