rCRP returns 1 if `size=0`

As reported by a user.

We should probably have it return a 0 length vector.

We can do that by changing to this in the run code:

```
        x <- nimNumeric(size) 
        if(size > 0) x[1] <- 1
```