Mercurial > repos > rnateam > locarna_pairwise
diff test-data/archaea_relplot.scr @ 3:f3f08a777c10 draft
planemo upload for repository https://github.com/bgruening/galaxytools/tree/master/tools/rna_tools/locarna commit 10ccc47885ce71e602d66e157bd475f1facbd042
| author | bgruening |
|---|---|
| date | Mon, 05 Dec 2022 14:29:12 +0000 |
| parents | 6a79a086fa50 |
| children | 4839df2b2f6b |
line wrap: on
line diff
--- a/test-data/archaea_relplot.scr Sat Jan 21 17:38:54 2017 -0500 +++ b/test-data/archaea_relplot.scr Mon Dec 05 14:29:12 2022 +0000 @@ -48,7 +48,7 @@ par(mar=c(6,2.5,1,1)) # open plot (and draw threshold) -plot(c(0),c(0),type="l", +plot(c(0),c(0),type="l", xlab="",ylab="", xlim=the_xlim,ylim=c(0,maxy), yaxp=c(0,1,2)) @@ -87,15 +87,15 @@ colors<-c(colors,colors); if (0>0) { - + for (i in 1:0) { orientation <- signals[signal_starts[i]+signal_sizes[i]*2]; sig_y <- maxy-i*anno_space; - + for (j in 0:(signal_sizes[i]-1)) { sig_x <- c(signals[signal_starts[i]+j*2],signals[signal_starts[i]+j*2+1]); - + ## draw arrows if (orientation!=0) { the_code <- 1+(orientation+1)/2; @@ -109,9 +109,9 @@ #draw inferred on-signal hit_color <- rgb(0.1,0.6,0.1,0.9) - + if (0!=1) { - + on <- c(0,4,33,44,49); off <- c(3,20,43,48,51);