X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2FRgraph.R;h=c38f0b44bc334fecc29ff2c25456451a5f223832;hp=ffbee4c5de3845b71ae9bac6551b7d8073b1c170;hb=1f82fb8e9ed83b8524b00039f1a8c51c2b12a8be;hpb=ea75400310e91c45b6a705119b2e33afc0933e3e

diff --git a/Rscripts/Rgraph.R b/Rscripts/Rgraph.R
index ffbee4c..c38f0b4 100644
--- a/Rscripts/Rgraph.R
+++ b/Rscripts/Rgraph.R
@@ -265,12 +265,12 @@ make_dendro_cut_tuple <- function(dendro_in, coordok, classeuce, x, nbt = 9) {
 	dendro <- gsub('a','',dendro)
 	dendro_tot_cl <- read.tree(text = dendro)
 	#FIXME
-	for (i in 1:10) {
+	for (i in 1:100) {
 		for (cl in 1:clnb) {
 			dendro <- gsub(paste('\\(',cl,',',cl,'\\)',sep=''),cl,dendro)
 		}
 	}
-	for (i in 1:10) {
+	for (i in 1:100) {
 		dendro <- gsub(paste('\\(',0,',',0,'\\)',sep=''),0,dendro)
 		for (cl in 1:clnb) {
 			dendro <- gsub(paste('\\(',0,',',cl,'\\)',sep=''),cl,dendro)
@@ -429,10 +429,10 @@ create_afc_table <- function(x) {
 
 make_afc_graph <- function(toplot, classes, clnb, xlab, ylab, cex.txt = NULL, leg = FALSE, cmd = FALSE, black = FALSE, xminmax=NULL, yminmax=NULL) {
     if (is.null(xminmax)) {
-        xminmax <- c(min(toplot[,1]) + (0.1 * min(toplot[,1])), max(toplot[,1]) + (0.1 * max(toplot[,1])))
+        xminmax <- c(min(toplot[,1], na.rm = TRUE) + (0.1 * min(toplot[,1], na.rm = TRUE)), max(toplot[,1], na.rm = TRUE) + (0.1 * max(toplot[,1], na.rm = TRUE)))
     }
     if (is.null(yminmax)) {
-        yminmax <- c(min(toplot[,2]) + (0.1 * min(toplot[,2])), max(toplot[,2]) + (0.1 * max(toplot[,2])))
+        yminmax <- c(min(toplot[,2], na.rm = TRUE) + (0.1 * min(toplot[,2], na.rm = TRUE)), max(toplot[,2], na.rm = TRUE) + (0.1 * max(toplot[,2], na.rm = TRUE)))
     }
 	rain <- rainbow(clnb)
     compt <- 1