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)
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: