Commits

Anonymous committed ce77346

adding directories

Comments (0)

Files changed (5)

images/collapse.gif

Added
New image

images/example.png

Added
New image

images/expand.gif

Added
New image

images/spinner2-greenie.gif

Added
New image

temp/.Rapp.history

+?png
+help.start()
+?png
+?input
+??"input"
+?data
+??"input"
+library(RCircos)
+RCircos.Workflow();
+x <- c(1:10);
+x <- 2*x;
+x(1);
+x[1]
+x[0]
+setwd($outDIR)#
+library(RCircos)#
+Species <-c["Human"];#
+if(Species == c["Human"]) {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 3, 0);#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- "figure.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(tracks[i], 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(tracks[i], 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(tracks[i], i+3, "in");#
+	}#
+}#
+if(RCircos.Link.Data != NULL) {#
+	RCircos.Link.Plot($linkLines, 7, TRUE);	#
+}#
+if(RCircos.Gene.Label.Data != NULL) {#
+	RCircos.Gene.Connector.Plot($geneLabel, 1, "in");#
+	RCircos.Gene.Name.Plot($geneLabel, 4, 2,"in");	#
+}#
+dev.off();
+library(RCircos)#
+Species <-c("Human");#
+if(Species == c("Human")) {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 3, 0);#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- "figure.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+tracks <- c(RCircos.Heatmap.Data, RCircos.Histogram.Data, RCircos.Line.Data);#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(tracks[i], 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(tracks[i], 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(tracks[i], i+3, "in");#
+	}#
+}#
+if(RCircos.Link.Data != NULL) {#
+	RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+}#
+if(RCircos.Gene.Label.Data != NULL) {#
+	RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+	RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+}#
+dev.off();
+library(RCircos)#
+Species <-c("Human");#
+if(Species == c("Human")) {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- "figure.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+tracks <- c(RCircos.Heatmap.Data, RCircos.Histogram.Data, RCircos.Line.Data);#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(tracks[i], 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(tracks[i], 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(tracks[i], i+3, "in");#
+	}#
+}#
+if(RCircos.Link.Data != NULL) {#
+	RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+}#
+if(RCircos.Gene.Label.Data != NULL) {#
+	RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+	RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+}#
+dev.off();
+library(RCircos)#
+Species <-c("Human");#
+if(Species == c("Human")) {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- "figure.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+tracks <- c(RCircos.Heatmap.Data, RCircos.Histogram.Data, RCircos.Line.Data);#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(tracks[i], 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(tracks[i], 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(tracks[i], i+3, "in");#
+	}#
+}
+RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, 4, "in");
+RCircos.Histogram.Plot(RCircos.Histogram.Data, 5, "in");
+RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, 5, "in");
+RCircos.Line.Plot(tracks[3], 6, "in");
+tracks[3]
+library(RCircos)#
+Species <-c("Human");#
+if(Species == c("Human")) {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- "figure.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+tracks <- c(RCircos.Heatmap.Data, RCircos.Histogram.Data, RCircos.Line.Data);#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(tracks[i], i+3, "in");#
+	}#
+}#
+if(RCircos.Link.Data != NULL) {#
+	RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+}#
+if(RCircos.Gene.Label.Data != NULL) {#
+	RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+	RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+}#
+dev.off();
+if(RCircos.Gene.Label.Data != NULL) {}
+library(RCircos)#
+Species <-c("Human");#
+if(Species == c("Human")) {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- "figure.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+tracks <- c(RCircos.Heatmap.Data, RCircos.Histogram.Data, RCircos.Line.Data);#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(tracks[i], i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(tracks[i], i+3, "in");#
+	}#
+}#
+#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();
+RCircos.Workflow();
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp//RCircos.Heatmap.Data.RData");#
+track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp//RCircos.Histogram.Data.RData");#
+track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp//RCircos.Line.Data.RData");#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp//RCircos.Link.Data.RData");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp//RCircos.Gene.Label.Data.RData");#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+ls
+cd /Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/
+;
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track1.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData);#
+track2.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData);#
+track3.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData);#
+link.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData);#
+gene.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData);#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track1.data <- read.table("RCircos.Heatmap.Data.RData");#
+track2.data <- read.table("RCircos.Histogram.Data.RData");#
+track3.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData);#
+link.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData);#
+gene.data <- read.table(/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData);#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+RCircos.Workflow()
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData, sep="\t", quote="",head=T);#
+track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(track1.data);#
+data(track2.data);#
+data(track3.data);#
+data(link.data);#
+data(gene.data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);
+track1.data
+RCircos.Workflow()
+data(RCircos.Gene.Label.Data.RData);
+data(RCircos.Gene.Label.Data);
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+#
+#RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- 1306260200111693885052;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(Array, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(Array, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(Array, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(, 1, "in");#
+RCircos.Gene.Name.Plot(, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+Species <- "'Human'";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+#
+#RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- 1306260200111693885052.png;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+###
+Species <- "Human";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+#
+#RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+out.file <- 1306260200111693885052.png;#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+###
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+###
+Species <- "Human";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+#
+#RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+## add quotes#
+out.file <- "1306260200111693885052.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+###
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+?sample
+library(RCircos)#
+###
+Species <- "Human";#
+#if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+#} else if(Species == "Mouse") {#
+#	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+#	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+#} else {#
+#	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+#	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+#}#
+#
+#RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+## add quotes#
+out.file <- "1306260200111693885052.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+###
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");
+RCircos.Set.Plot.Area();#
+> RCircos.Chromosome.Ideogram.Plot();
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);
+RCircos.Link.Plot(RCircos.Link.Data, 5, TRUE);
+RCircos.Chromosome.Ideogram.Plot();
+dev.off()
+library(RCircos)#
+###
+Species <- "Human";#
+#if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+#} else if(Species == "Mouse") {#
+#	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+#	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+#} else {#
+#	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+#	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+#}#
+#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+## add quotes#
+out.file <- "1306260200111693885052.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+###
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+###
+Species <- "Human";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Heatmap.Data.RData", sep="\t", quote="", head=T);#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/#RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Link.Data);#
+data(RCircos.Gene.Label.Data);#
+## add quotes#
+out.file <- "1306260200111693885052.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+###
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "1306260200111693885052_circos",".png", sep= ''));
+library(RCircos)#
+Species <- "Human";#
+if(Species == "Human") {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "13062603370147941154";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();#
+system(paste("chmod 777 ", "13062603370147941154",".png", sep= ''));
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "130626033949707665657";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+#system(paste("chmod 777 ", "130626033949707665657",".png", sep= ''));
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "1306260350111684813959";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "1306260350111684813959.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 10, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "130626035332858019669.png";#
+png(filename = out.file, width=8, height=8, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+for(i in 1:3) {#
+	if( tracksSelected[i] == trackTypes[1]) {#
+		RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[2]) {#
+		RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[3]) {#
+		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[4]) {#
+		RCircos.Scatter.Plot(, i+3, "in");#
+	}#
+	else if(tracksSelected[i] == trackTypes[5]) {#
+		RCircos.Tile.Plot(, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+#system(paste("chmod 777 ", "130626035332858019669",".png", sep= ''));
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Histogram.Data.RData");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Line.Data.RData");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data(RCircos.Histogram.Data);#
+data(RCircos.Line.Data);#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "1306260448421906784641.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+##tracksSelected <- c("Heatmap", "Histogram", "Line");#
+##trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+##for(i in 1:3) {#
+##	if( tracksSelected[i] == trackTypes[1]) {#
+RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, i+3, "in");#
+##	}#
+##	else if(tracksSelected[i] == trackTypes[2]) {#
+RCircos.Histogram.Plot(RCircos.Histogram.Data, 4, i+3, "in");#
+RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+##	}#
+##	else if(tracksSelected[i] == trackTypes[3]) {#
+##		RCircos.Line.Plot(RCircos.Line.Data, 5, i+3, "in");#
+##	}#
+##	else if(tracksSelected[i] == trackTypes[4]) {#
+##		RCircos.Scatter.Plot(, i+3, "in");#
+##	}#
+##	else if(tracksSelected[i] == trackTypes[5]) {#
+##		RCircos.Tile.Plot(, i+3, "in");#
+##	}#
+##}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+#system(paste("chmod 777 ", "1306260448421906784641",".png", sep= ''));
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data();#
+data();#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "130626055141724465908.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "NONE", "NONE");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+if("Heatmap" == "Heatmap" | "Heatmap" == "Histogram" | "Heatmap" == "Line") {#
+	RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, 4, "in");#
+} elseif("Heatmap" == "Scatter" | "Heatmap" == "Tile") {#
+	RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 3, "in");#
+}#
+if("NONE" == "Heatmap" | "NONE" == "Histogram" | "NONE" == "Line") {#
+	RCircos.NONE.Plot(, 5, 5, "in");#
+} elseif("NONE" == "Scatter" | "NONE" == "Tile") {#
+	RCircos.NONE.Plot(, 4, "in");#
+}#
+if("NONE" == "Heatmap" | "NONE" == "Histogram" | "NONE" == "Line") {#
+	RCircos.NONE.Plot(, 5, 6, "in");#
+} elseif("NONE" == "Scatter" | "NONE" == "Tile") {#
+	RCircos.NONE.Plot(, 5, "in");#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+#system(paste("chmod 777 ", "130626055141724465908",".png", sep= ''));
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data();#
+data();#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "130626055141724465908.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "NONE", "NONE");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+if("Heatmap" == "Heatmap" | "Heatmap" == "Histogram" | "Heatmap" == "Line") {#
+	RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, 4, "in");#
+} ifelse("Heatmap" == "Scatter" | "Heatmap" == "Tile") {#
+	RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 3, "in");#
+}#
+if("NONE" == "Heatmap" | "NONE" == "Histogram" | "NONE" == "Line") {#
+	RCircos.NONE.Plot(, 5, 5, "in");#
+} ifelse("NONE" == "Scatter" | "NONE" == "Tile") {#
+	RCircos.NONE.Plot(, 4, "in");#
+}#
+if("NONE" == "Heatmap" | "NONE" == "Histogram" | "NONE" == "Line") {#
+	RCircos.NONE.Plot(, 5, 6, "in");#
+} ifelse("NONE" == "Scatter" | "NONE" == "Tile") {#
+	RCircos.NONE.Plot(, 5, "in");#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+#system(paste("chmod 777 ", "130626055141724465908",".png", sep= ''));
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+#track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Heatmap.Data.RData");#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Link.Data.RData");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/RCircos.Gene.Label.Data.RData");#
+data(RCircos.Heatmap.Data);#
+data();#
+data();#
+data(RCircos.Gene.Label.Data);#
+data(RCircos.Link.Data);#
+out.file <- "130626055141724465908.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "NONE", "NONE");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+if("Heatmap" == "Heatmap" | "Heatmap" == "Histogram" | "Heatmap" == "Line") {#
+	RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 6, 4, "in");#
+} else if("Heatmap" == "Scatter" | "Heatmap" == "Tile") {#
+	RCircos.Heatmap.Plot(RCircos.Heatmap.Data, 3, "in");#
+}#
+if("NONE" == "Heatmap" | "NONE" == "Histogram" | "NONE" == "Line") {#
+	RCircos.NONE.Plot(, 5, 5, "in");#
+} else if("NONE" == "Scatter" | "NONE" == "Tile") {#
+	RCircos.NONE.Plot(, 4, "in");#
+}#
+if("NONE" == "Heatmap" | "NONE" == "Histogram" | "NONE" == "Line") {#
+	RCircos.NONE.Plot(, 5, 6, "in");#
+} else if("NONE" == "Scatter" | "NONE" == "Tile") {#
+	RCircos.NONE.Plot(, 5, "in");#
+}#
+RCircos.Link.Plot(RCircos.Link.Data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(RCircos.Gene.Label.Data, 1, "in");#
+RCircos.Gene.Name.Plot(RCircos.Gene.Label.Data, 4, 2,"in");	#
+#
+dev.off();#
+#system(paste("chmod 777 ", "130626055141724465908",".png", sep= ''));
+?sample
+x <- sample(RCircos.Link.Data, 100);
+x <- sample(RCircos.Link.Data, 50);
+x <- sample(RCircos.Link.Data, 1);
+x <- sample(RCircos.Link.Data, 2);
+x <- sample(RCircos.Link.Data, 5);
+x <- sample(RCircos.Link.Data, 10);
+x <- sample(RCircos.Link.Data, 9);
+x <- sample(RCircos.Link.Data, 6);
+x <- sample(RCircos.Link.Data, 7);
+x <- sample(RCircos.Link.Data, 5);
+x
+load("/Users/hansenpc/Documents/RCircos/data/RCircos.Gene.Label.Data.RData")
+RCircos.Gene.Label.Data.RData
+load("/Users/hansenpc/Documents/RCircos/data/RCircos.Gene.Label.Data.RData")
+RCircos.Workflow();
+sample(RCircos.Heatmap.Data, 5)
+sample(RCircos.Histogram.Data, 5)
+sample(RCircos.Histogram.Data, 3)
+sample(RCircos.Line.Data, 3)
+sample(RCircos.Gene.Label.Data, 3)
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+### Currently the code only handles RData files which is kinda pointless #
+### but the only kind of file I have right now. When it begins to handle #
+### other filetypes these variables will become necessary.#
+substrRight <- function(x, n){#
+  substr(x, nchar(x)-n+1, nchar(x))#
+}#
+if(substrRight(heatmapdata.txt, 3) == "txt") {#
+	track1.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/heatmapdata.txt, sep="	", quote="", head=T);	#
+	data(track1.data);#
+	print "ding";#
+}#
+if(substrRight(histogramdata.txt, 3) == "txt") {#
+	track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/histogramdata.txt, sep="	", quote="", head=T);#
+	data(track2.data);#
+	print "ding";#
+}#
+if(substrRight(linedata.txt, 3) == "txt") {#
+	track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/linedata.txt, sep="	", quote="", head=T);#
+	data(track3.data);#
+	print "ding";#
+}#
+if(substrRight(linkdata.txt, 3) == "txt") {#
+	link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/linkdata.txt, sep="	", quote="", head=T);#
+	data(link.data);#
+	print "ding";#
+}#
+if(substrRight(genelabeldata.txt, 3) == "txt") {#
+	gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/genelabeldata.txt, sep="	", quote="", head=T);#
+	data(gene.data);#
+	print "ding";#
+}#
+#track2.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/histogramdata.txt");#
+#track3.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/linedata.txt");#
+#link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/linkdata.txt");#
+#gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/genelabeldata.txt");#
+data(heatmapdata);#
+data(histogramdata);#
+data(linedata);#
+data(genelabeldata);#
+data(linkdata);#
+out.file <- "1306260654081898526580.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+tracksSelected <- c("Heatmap", "Histogram", "Line");#
+trackTypes <- c("Heatmap", "Histogram", "Line", "Scatter", "Tile")#
+if("Heatmap" == "Heatmap" | "Heatmap" == "Histogram" | "Heatmap" == "Line") {#
+	RCircos.Heatmap.Plot(heatmapdata, 6, 4, "in");#
+} else if("Heatmap" == "Scatter" | "Heatmap" == "Tile") {#
+	RCircos.Heatmap.Plot(heatmapdata, 3, "in");#
+}#
+if("Histogram" == "Heatmap" | "Histogram" == "Histogram" | "Histogram" == "Line") {#
+	RCircos.Histogram.Plot(histogramdata, 4, 5, "in");#
+} else if("Histogram" == "Scatter" | "Histogram" == "Tile") {#
+	RCircos.Histogram.Plot(histogramdata, 4, "in");#
+}#
+if("Line" == "Heatmap" | "Line" == "Histogram" | "Line" == "Line") {#
+	RCircos.Line.Plot(linedata, 5, 6, "in");#
+} else if("Line" == "Scatter" | "Line" == "Tile") {#
+	RCircos.Line.Plot(linedata, 5, "in");#
+}#
+RCircos.Link.Plot(linkdata, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(genelabeldata, 1, "in");#
+RCircos.Gene.Name.Plot(genelabeldata, 4, 2,"in");	#
+#
+dev.off();
+RCircos.Workflow()
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("temp/131912246_linkdata.txt");#
+gene.data <- read.table("temp/159428213_genelabeldata.txt");#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("temp/1538397075_heatmapdata.txt", temp/351997497_histogramdata.txt", "temp/1954766623_linedata.txt");#
+out.file <- "13062608013218064740.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType = TrackType[i];#
+	TrackFile = TrackFiles[i];#
+	TrackData <- read.table(TrackFile);#
+	if(TrackType = "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType = "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType = "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType = "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType = "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1867740192_linkdata.txt");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1146753138_genelabeldata.txt");#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1007190023_heatmapdata.txt", /Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/116245330_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1983821821_linedata.txt");#
+out.file <- "1306260804381190792685.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType = TrackType[i];#
+	TrackFile = TrackFiles[i];#
+	TrackData <- read.table(TrackFile);#
+	if(TrackType = "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType = "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType = "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType = "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType = "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1543888418_linkdata.txt");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/909748410_genelabeldata.txt");#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/671561044_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/212835945_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/2064724984_linedata.txt");#
+out.file <- "130626080616516317681.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackType[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile);#
+	if(TrackType = "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType = "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType = "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType = "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType = "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1785887058_linkdata.txt");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1173787292_genelabeldata.txt");#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/283193748_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1097396626_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1082682806_linedata.txt");#
+out.file <- "1306260808201675938893.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackType[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile);#
+	if(TrackType = "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1470006012_linkdata.txt");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/431115825_genelabeldata.txt");#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1902723332_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/2036866580_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/946860727_linedata.txt");#
+out.file <- "130626081105395642908.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackType[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/794279237_linkdata.txt");#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1560048506_genelabeldata.txt");#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/315371498_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1384615593_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/555064052_linedata.txt");#
+out.file <- "130626081323609328482.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackTypes[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+RCircos.Workflow()
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/794279237_linkdata.txt",sep="\t", quote="", head=T);#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1560048506_genelabeldata.txt",sep="\t", quote="", head=T);#
+TrackTypes <- c("Heatmap", "Histogram", "Line");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/315371498_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1384615593_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/555064052_linedata.txt");#
+out.file <- "130626081323609328482.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackTypes[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile, sep="\t", quote="", head=T);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos);
+RCircos.Workflow();
+library(RCircos)#
+Species <- Human;#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/162903567_linkdata.txt", sep="	", quote="", head=T);#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1769279481_genelabeldata.txt", sep="	", quote="", head=T);#
+TrackTypes <- c("'Heatmap'", "", "");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/130888643_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1398753487_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/529726815_linedata.txt");#
+out.file <- "130627015637575791513.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackTypes[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile, sep="	", quote="", head=T);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/291094915_linkdata.txt", sep="	", quote="", head=T);#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/2131913693_genelabeldata.txt", sep="	", quote="", head=T);#
+TrackTypes <- c("'Heatmap'", "", "");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1974794998_heatmapdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/559848675_histogramdata.txt", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1927543419_linedata.txt");#
+out.file <- "130627015821160118677.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackTypes[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile, sep="	", quote="", head=T);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1250053036_RCircos.Link.Data.RData", sep="	", quote="", head=T);#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/265181229_RCircos.Gene.Label.Data.RData", sep="	", quote="", head=T);#
+TrackTypes <- c("'Heatmap'", "", "");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/861002581_RCircos.Heatmap.Data.RData", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1707952811_RCircos.Histogram.Data.RData", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1122847330_RCircos.Line.Data.RData");#
+out.file <- "130627020147480554483.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackTypes[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile, sep="	", quote="", head=T);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackFile, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackFile, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackFile, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackFile, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackFile, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1250053036_RCircos.Link.Data.RData", sep="	", quote="", head=T);#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/265181229_RCircos.Gene.Label.Data.RData", sep="	", quote="", head=T);#
+TrackTypes <- c("'Heatmap'", "", "");#
+TrackFiles <- c("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/861002581_RCircos.Heatmap.Data.RData", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1707952811_RCircos.Histogram.Data.RData", "/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/1122847330_RCircos.Line.Data.RData");#
+out.file <- "130627020147480554483.png";#
+png(filename = out.file, width=6, height=6, units="in", res=300, 	type="cairo");#
+RCircos.Set.Plot.Area();#
+RCircos.Chromosome.Ideogram.Plot();#
+for( i in 1:3) {#
+	TrackType <- TrackTypes[i];#
+	TrackFile <- TrackFiles[i];#
+	TrackData <- read.table(TrackFile, sep="	", quote="", head=T);#
+	if(TrackType == "Heatmap") {#
+		RCircos.Heatmap.Plot(TrackData, 6, i + 3, "in");#
+	} else if(TrackType == "Histogram") {#
+		RCircos.Histogram.Plot(TrackData, 4, i+3, "in");#
+	} else if(TrackType == "Line") {#
+		RCircos.Line.Plot(TrackData, 5, i+3, "in");#
+	} else if(TrackType == "Scatter") {#
+		RCircos.Scatter.Plot(TrackData, i+3, "in");#
+	} else if(TrackType == "Tile") {#
+		RCircos.Tile.Plot(TrackData, i+3, "in");#
+	}#
+}#
+RCircos.Link.Plot(link.data, 7, TRUE);	#
+RCircos.Gene.Connector.Plot(gene.data, 1, "in");#
+RCircos.Gene.Name.Plot(gene.data, 4, 2,"in");	#
+#
+dev.off();
+library(RCircos)#
+Species <- 'Human';#
+if(Species == 'Human') {#
+	data(UCSC.HG19.Human.CytoBandIdeogram);#
+	cyto.info <- UCSC.HG19.Human.CytoBandIdeogram;#
+} else if(Species == "Mouse") {#
+	data(UCSC.Mouse.GRCm38.CytoBandIdeogram);#
+	cyto.info <- UCSC.Mouse.GRCm38.CytoBandIdeogram;#
+} else {#
+	data(UCSC.Baylor.3.4.Rat.cytoBandIdeogram);#
+	cyto.info <- UCSC.Baylor.3.4.Rat.cytoBandIdeogram;#
+}#
+RCircos.Set.Core.Components(cyto.info, chr.exclude=NULL, 7, 0);#
+link.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/291094915_linkdata.txt", sep="	", quote="", head=T);#
+gene.data <- read.table("/Applications/XAMPP/xamppfiles/htdocs/Workspace/RCircos/temp/2131913693_genelabeldata.txt", sep="	", quote="", head=T);#
+TrackTypes <- c("'Heatmap'", "", "");#