Commits

Peter Hansen  committed 92a8fed Merge
  • Participants
  • Parent commits dc11494, 4e180ff

Comments (0)

Files changed (1)

File 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;#