title: SomersDelta: Error in as.table.default(x) : cannot coerce to a tabl in R
body: <p>data example</p>
  
  <pre><code>sommer=structure(list(tub = c(1L, 2L, 0L, 2L, 0L, 0L, 0L, 0L, 0L, 
  1L, 1L, 2L, 1L, 0L, 0L, 1L, 0L, 2L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 
  2L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 3L, 0L, 1L, 1L, 1L, 1L, 
  0L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 1L, 0L, 1L, 3L, 
  2L, 0L, 1L, 0L, 3L, 2L, 2L, 0L, 0L, 0L, 1L, 0L, 0L, 3L, 1L, 1L, 
  3L, 1L), fq = c(1L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 
  0L, 1L, 3L, 6L, 1L, 0L, 0L, 1L, 0L, 2L, 4L, 2L, 0L, 0L, 2L, 0L, 
  0L, 5L, 0L, 1L, 2L, 0L, 0L, 1L, 0L, 0L, 0L, 14L, 0L, 1L, 1L, 
  1L, 4L, 0L, 1L, 0L, 4L, 0L, 0L, 0L, 6L, 1L, 0L, 0L, 1L, 1L, 0L, 
  1L, 3L, 4L, 0L, 1L, 0L, 8L, 1L, 2L, 0L, 0L, 0L, 2L, 0L, 0L, 3L, 
  2L, 2L, 1L, 1L)), .Names = c("tub", "fq"), class = "data.frame", row.names = c(NA, 
  -75L))
  </code></pre>
  
  <p>i want calculate   SomersDelta</p>
  
  <pre><code>library("DescTools")
  SomersDelta(sommer, direction = c("row", "column"))
  </code></pre>
  
  <p>and i get the error</p>
  
  <pre><code>Error in as.table.default(x) : cannot coerce to a table
  </code></pre>
  
  <p>also i want get spine plot</p>
  
  <pre><code>library("coin")
  spineplot(sommer)
  </code></pre>
  
  <p>but i get the error</p>
  
  <pre><code>Error in margin.table(tab, 1) : 'x' is not an array
  </code></pre>
  
  <p>are there two errors interconnection?
  How to calculate SomersDelta  and get spine plot like this
  <a href="https://i.stack.imgur.com/lfZ7e.jpg" rel="nofollow noreferrer">spine plot</a></p>