-# if (over) {
-# rn <- rownames(table.in)
-# rownames(table.in) <- 1:nrow(table.in)
-# table.in <- unique(table.in)
-# rn.keep <- as.numeric(rownames(table.in))
-# rownames(table.in) <- rn[rn.keep]
-# tablechi <- tablechi[rn.keep,]
-# if (qui==0) {
-# cex.par <- cex.par[rn.keep]
-# } else {
-# cex.par <- NULL
-# }
-# }