title: Add column sum to table
body: <p>Data structure is:</p>
  
  <pre><code>Company        Marital
  a              single
  a              married
  b              widow
  c              married
  b              single
  </code></pre>
  
  <p>I'm using <code>table(df$Company,df$Marital)</code>, but I want to have a column that shows the row total, such as the following:</p>
  
  <pre><code>            a     b    c    Total
  married     50    20   5    75
  single      10    10   10   30
  widow       5     50   0    55
  </code></pre>
  
  <p>Is there a different table function that provides a row sum append option? </p>