tchi.min <- %i
tchi.max <- %i
dirout <- '%s'
+do.svg <- %s
xminmax <- NULL
yminmax <- NULL
infp <- which(is.infinite(maxchi) & maxchi > 0)
if (length(infp)) {
maxchi[infp] <- NA
- valmax <- max(maxchi, na.rm = TRUE)
+ if (!length(infp) == length(maxchi)) {
+ valmax <- max(maxchi, na.rm = TRUE)
+ } else {
+ valmax <- 8
+ }
maxchi[infp] <- valmax + 2
}
if (cex.txt) {
if (typegraph == 0) {
- open_file_graph(fileout, width = width, height = height)
+ open_file_graph(fileout, width = width, height = height, svg = do.svg)
parcex <- taillecar/10
par(cex = parcex)
if (over) {