+ 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