From: Pierre <ratinaud@univ-tlse2.fr>
Date: Wed, 30 Jan 2013 22:32:00 +0000 (+0100)
Subject: Merge branch 'master' of http://www.netdig.org/git/iramuteq
X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=commitdiff_plain;h=9d5358d31d7438dfa92c9112adb2ae471ad95aae;hp=-c

Merge branch 'master' of netdig.org/git/iramuteq
---

9d5358d31d7438dfa92c9112adb2ae471ad95aae
diff --combined Rscripts/afc_graph.R
index 64e05d6,e4b0617..a0d178e
--- a/Rscripts/afc_graph.R
+++ b/Rscripts/afc_graph.R
@@@ -1,10 -1,10 +1,10 @@@
  #Author: Pierre Ratinaud
 -#Copyright (c) 20010 Pierre Ratinaud
 +#Copyright (c) 20010-2013 Pierre Ratinaud
  #Lisense: GNU/GPL
  
  
  #fichier genere par IRaMuTeq
- source('%s')
+ source('%s', encoding = 'utf8')
  typegraph <- %i
  what <- %i
  x <- %i
@@@ -182,48 -182,24 +182,24 @@@ if (typegraph == 0) 
      make_afc_graph(table.in, classes, clnb, xlab, ylab, cex.txt = cex.par, xminmax = xminmax, yminmax = yminmax)
  
  } else {
- 
-     vire.nonascii <- function(rnames) {
-         print('vire non ascii')
-         couple <- list(c('é','e'),
-                     c('è','e'),
-                     c('ê','e'),
-                     c('ë','e'),
-                     c('î','i'),
-                     c('ï','i'),
-                     c('ì','i'),
-                     c('à','a'),
-                     c('â','a'),
-                     c('ä','a'),
-                     c('á','a'),
-                     c('ù','u'),
-                     c('û','u'),
-                     c('ü','u'),
-                     c('ç','c'),
-                     c('ò','o'),
-                     c('ô','o'),
-                     c('ö','o'),
-                     c('ñ','n')
-                     )
-         for (c in couple) {
-             rnames<-gsub(c[1],c[2], rnames)
-         }
-         rnames
-     }
      library(rgl)
-     #rn <- vire.nonascii(rownames(table.in))
-     rn <- rownames(table.in)
-     rgl.open()
+     rn <- vire.nonascii(rownames(table.in))
+     print(rn)
+     rain = rainbow(clnb)
+     colors = rain[classes]
+     #rn <- rownames(table.in)
+     open3d()
+     text3d(table.in[,1], table.in[,2], table.in[,3], rn, col = colors , cex = cex.par)
      par3d(cex=0.7)
      #par3d(windowRect = c(100,100,600,600))
-     rgl.bg(col = c('white', "#99bb99"), front = "lines", box=FALSE, sphere = TRUE)
+     rgl.bg(col = c('white', "#99bb99"), front = "lines", box=FALSE, sphere = FALSE)
      rgl.lines(c(rx), c(0, 0), c(0, 0), col = "#000000")
      rgl.lines(c(0,0),c(ry),c(0,0),col = "#000000")
      rgl.lines(c(0,0),c(0,0),c(rz),col = "#000000")
      text3d(rx[2]+1,0,0, xlab)
      text3d(0,ry[2]+1,0, ylab)
      text3d(0,0,rz[2]+1, zlab)
-     rain = rainbow(clnb)
+     
       if (tchi) {
          maxchi <- norm.vec(maxchi, tchi.min/100, tchi.max/100)
      } else if (!is.null(cex.par)) {
@@@ -231,8 -207,8 +207,8 @@@
      } else {
          maxchi <- 0.1
      }
-     colors = rain[classes]
-     text3d(table.in[,1], table.in[,2], table.in[,3], rn, col= colors , cex = cex.par)
+     
+     
      for (i in 1:clnb) {
          text3d(rx[2],(ry[2]+(0.2*i)),0,paste('classe',i),col=rain[i])
      }