# NOT RUN {
x <- rnorm(n = 10, mean = 5, sd = 20)
y <- rescale_integer_sum(x, tot = 10)
y
sum(y)
for(i in 1:10){
y <- rescale_integer_sum(x = rpois(n = 10, lambda = 10), tot = 1000)
print(sum(y))
}
# }
Run the code above in your browser using DataLab