Problem with int_pp()

There is a problem with the int_pp function (PP integerisation) due to the limitation of summary() by maxsum argument, whose default is 100 for factors. 
Try int_pp(x=rep(1.3333,100000)) to reproduce the error.

My patch is:
```
 # Aggregate the result into a weight vector
   xsumm <- summary(as.factor(xs), maxsum = length(levels(as.factor(xs)))+1)
```