- infp <- which(is.infinite(chistabletot) & chistabletot > 0)
- infm <- which(is.infinite(chistabletot) & chistabletot < 0)
- chistabletot[infp] <- 0
- chistabletot[infm] <- 0
- chistabletot[infp] <- max(chistabletot) + 1
- chistabletot[infm] <- min(chistabletot) - 1