#Author: Pierre Ratinaud
#Copyright (c) 20010-2013 Pierre Ratinaud
-#Lisense: GNU/GPL
+#License: GNU/GPL
#fichier genere par IRaMuTeq
table.in <- table.in[row.keep,]
tablechi <- tablechi[row.keep,]
} else if (do.select.chi.classe) {
- row.keep <- select.chi.classe(tablechi, ptbycluster)
+ row.keep <- select.chi.classe(tablechi, ptbycluster, active=FALSE)
table.in <- table.in[row.keep,]
tablechi <- tablechi[row.keep,]
} else {
if (qui != 3) {
tokeep <- rownames(chistabletot) %%in%% rownames(table.in)
chis <- chistabletot[tokeep,]
- if (over) {
- chis<-chis[rownames(table.in),]
- }
+ chis<-chis[rownames(table.in),]
nodes.attr$chiclasse <- chis
} else {
chis <- NULL
ReturnVal <- tkmessageBox(title="RGL 3 D",message="Fini !",icon="info",type="ok")
}
- if (typegraph == 2) {
+ if (typegraph == 1) {
require(tcltk)
ReturnVal <- tkmessageBox(title="RGL 3 D",message="Cliquez pour fermer",icon="info",type="ok")
} else {