fix issue #1 matrix2sample fails if rownames missing

Fixes issue #1 

test case
```
data(dune)
x <- as.matrix(dune)
rownames(x) # missing
matrix2sample(x)
```