table input

This works:

```
library(RcppAlgos)
x <- c("a", "b", "b")
tab <- table(x)
permuteGeneral(v = names(tab), freq = tab)
```

but it would be nice if it directly accepted "table" objects.

```
permuteGeneral(tab)
```

