comparison test-data/archaea_relplot.scr @ 4:7d63908343c3 draft default tip

planemo upload for repository https://github.com/bgruening/galaxytools/tree/master/tools/rna_tools/locarna commit 94c141a71ef115279f1090f782b6f5cdeea9c277

3:e84d1fc87829

pdf("/tmp/tmp5yxSuG/files/000/dataset_2.dat",width=12,height=4,version="1.4")

rel    <- read.table("mlocarna_results/results/result.bmreliability");
seqrel <- rel[[2]]
strrel <- rel[[3]]

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

  if (length(on)>0) {
    for (i in 1:length(on)) {
      lines(c(1+on[i],1+off[i]-1),c(maxy,maxy),lwd=7,col=hit_color);
    }
  }

  ### draw on/off values
  if (0) {
    lines(c(1,1+len),c(0.0355791,0.0355791),lty=2,lwd=1)
    lines(c(1,1+len),c(0.702675,0.702675),lty=2,lwd=1)
  }
}


signal_names<-c();

4:7d63908343c3

pdf("/tmp/tmpewnb251n/job_working_directory/000/2/outputs/dataset_a612ea0e-aca2-4d90-987a-39141bc61f36.dat",width=12,height=4,version="1.4")

rel    <- read.table("mlocarna_results/results/result.bmreliability");
seqrel <- rel[[2]]
strrel <- rel[[3]]

#draw inferred on-signal
hit_color <- rgb(0.1,0.6,0.1,0.9)

if (0!=1) {

  on  <- c(0,33);
  off <- c(20,51);

  if (length(on)>0) {
    for (i in 1:length(on)) {
      lines(c(1+on[i],1+off[i]-1),c(maxy,maxy),lwd=7,col=hit_color);
    }
  }

  ### draw on/off values
  if (0) {
    lines(c(1,1+len),c(0.0139513,0.0139513),lty=2,lwd=1)
    lines(c(1,1+len),c(0.656017,0.656017),lty=2,lwd=1)
  }
}


signal_names<-c();