Here is a code, that runs fine within an R script:
```{r } library(stringr) library(nimble) n <- c(10,20,10,20,50) m <- c(10,10,20,20,50) n &l