X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fafc_graph.R;fp=Rscripts%2Fafc_graph.R;h=8a62d8ad0f133c1e9e458a9a6987aa7b4feb7ee0;hp=d067c162a844adaddf39aaf1001c8f16b489b26f;hb=ad8fe486b34f1cee918ea8564bf909e30cd25328;hpb=8cebf6f5e4531b73d8ba32f834c10cefd1086d80

diff --git a/Rscripts/afc_graph.R b/Rscripts/afc_graph.R
index d067c16..8a62d8a 100644
--- a/Rscripts/afc_graph.R
+++ b/Rscripts/afc_graph.R
@@ -132,7 +132,11 @@ if ( qui == 3 ) {
     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) {