diff --git a/R/chromy_pps.R b/R/chromy_pps.R
index 0234c7d..0692e76 100644
--- a/R/chromy_pps.R
+++ b/R/chromy_pps.R
@@ -112,6 +112,7 @@ chromy_inner <- function(exphits) {
 
   # Set-up vectors of I, F, lower bound of hits, and a uniform random number
   exphitscum <- cumsum(exphits)
+  exphitscum[N] <- round(sum(exphits))
   I <- floor(exphitscum)
   F <- exphitscum - I
   hits <- rep(0, N)