Mercurial > repos > rnateam > locarna_pairwise

comparison test-data/archaea_relplot.scr @ 4:4839df2b2f6b draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/bgruening/galaxytools/tree/master/tools/rna_tools/locarna commit 94c141a71ef115279f1090f782b6f5cdeea9c277
author bgruening
date Mon, 19 Aug 2024 18:52:50 +0000
parents f3f08a777c10
children
comparison
equal deleted inserted replaced
3:f3f08a777c10 4:4839df2b2f6b
1 pdf("/tmp/tmp5yxSuG/files/000/dataset_2.dat",width=12,height=4,version="1.4") 1 pdf("/tmp/tmpewnb251n/job_working_directory/000/2/outputs/dataset_a612ea0e-aca2-4d90-987a-39141bc61f36.dat",width=12,height=4,version="1.4")
2 2
3 rel <- read.table("mlocarna_results/results/result.bmreliability"); 3 rel <- read.table("mlocarna_results/results/result.bmreliability");
4 seqrel <- rel[[2]] 4 seqrel <- rel[[2]]
5 strrel <- rel[[3]] 5 strrel <- rel[[3]]
6 6
110 #draw inferred on-signal 110 #draw inferred on-signal
111 hit_color <- rgb(0.1,0.6,0.1,0.9) 111 hit_color <- rgb(0.1,0.6,0.1,0.9)
112 112
113 if (0!=1) { 113 if (0!=1) {
114 114
115 on <- c(0,4,33,44,49); 115 on <- c(0,33);
116 off <- c(3,20,43,48,51); 116 off <- c(20,51);
117 117
118 if (length(on)>0) { 118 if (length(on)>0) {
119 for (i in 1:length(on)) { 119 for (i in 1:length(on)) {
120 lines(c(1+on[i],1+off[i]-1),c(maxy,maxy),lwd=7,col=hit_color); 120 lines(c(1+on[i],1+off[i]-1),c(maxy,maxy),lwd=7,col=hit_color);
121 } 121 }
122 } 122 }
123 123
124 ### draw on/off values 124 ### draw on/off values
125 if (0) { 125 if (0) {
126 lines(c(1,1+len),c(0.0355791,0.0355791),lty=2,lwd=1) 126 lines(c(1,1+len),c(0.0139513,0.0139513),lty=2,lwd=1)
127 lines(c(1,1+len),c(0.702675,0.702675),lty=2,lwd=1) 127 lines(c(1,1+len),c(0.656017,0.656017),lty=2,lwd=1)
128 } 128 }
129 } 129 }
130 130
131 131
132 signal_names<-c(); 132 signal_names<-c();