Nothing

```
library(RcppCWB)
testthat::context("region_matrix_to_count_matrix")
test_that(
"regions_to_count_matrix",
{
M <- region_matrix_to_count_matrix(
corpus = "REUTERS",
p_attribute = "word",
registry = system.file(package = "RcppCWB", "extdata", "cwb", "registry"),
matrix = matrix(c(0, 91), nrow = 1)
)
expect_equal(M[16,2], 5L)
}
)
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.