#chd.R source('%s') source('%s') source('%s') source('%s') classif.mode <- %i file.data1 <- '%s' file.data2 <- '%s' file.listuce1 <- '%s' file.listuce2 <- '%s' file.uce <- '%s' mincl <- %i graph.arbre1 <- '%s' graph.arbre2 <- '%s' graph.dendro1 <- '%s' graph.dendro2 <- '%s' data.out <- %s data1<-read.csv2(file.data1, header = FALSE) if (classif.mode == 0) { data2<-read.csv2(file.data2, header = FALSE) } chd1<-CHD(data1) if (classif.mode == 0) { chd2<-CHD(data2) } else { chd2<-chd1 } #lecture des uce listuce1<-read.csv2(file.listuce1) if (classif.mode == 0) { listuce2<-read.csv2(file.listuce2) } rm(data1) if (classif.mode == 0) rm(data2) chd.result <- Rchdtxt(file.uce,mincl=mincl,classif_mode=classif.mode) n1 <- chd.result$n1 classeuce1 <- chd.result$cuce1 classeuce2 <- chd.result$cuce2 tree.tot1 <- make_tree_tot(chd1) open_file_graph(graph.arbre1, widt = 600, height=400) plot(tree.tot1$tree.cl) dev.off() if (classif.mode == 0) { tree.tot2 <- make_tree_tot(chd2) open_file_graph(graph.arbre2, width = 600, height=400) plot(tree.tot2$tree.cl) dev.off() } tree.cut1 <- make_dendro_cut_tuple(tree.tot1$dendro_tuple, chd.result$coord_ok, classeuce1, 1) classes<-n1[,9] open_file_graph(graph.dendro1, width = 600, height=400) plot.dendropr(tree.cut1$tree.cl,classes) dev.off() if (classif.mode == 0) { tree.cut2 <- make_dendro_cut_tuple(tree.tot2$dendro_tuple, chd.result$coord_ok, classeuce2, 2) open_file_graph(graph.dendro2, width = 600, height=400) plot(tree.cut2$tree.cl) dev.off() } save.image(file=data.out) (RscriptPath['CHD'], RscriptPath['chdtxt'], RscriptPath['anacor'], RscriptPath['Rgraph']) """ % DicoPath['TableUc1'] """ % DicoPath['TableUc2'] """ % DicoPath['listeuce1'] """ % DicoPath['listeuce2'] """ % (DicoPath['uce'], mincl, classif_mode) """%DicoPath['arbre1'] """ %DicoPath['arbre2'] """ % DicoPath['dendro1'] """ % DicoPath['dendro2'] % DicoPath['RData']