annotate test-data/output.inner_distance_plot.r @ 1:cd2daa987b69 draft default tip

planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit 2400cce6e3918648fda8f2a8d8485ab251a58827
author lparsons
date Tue, 07 Jul 2015 14:14:04 -0400
parents 306127635959
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
1 pdf('output.inner_distance_plot.pdf')
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
2 fragsize=rep(c(-248,-243,-238,-233,-228,-223,-218,-213,-208,-203,-198,-193,-188,-183,-178,-173,-168,-163,-158,-153,-148,-143,-138,-133,-128,-123,-118,-113,-108,-103,-98,-93,-88,-83,-78,-73,-68,-63,-58,-53,-48,-43,-38,-33,-28,-23,-18,-13,-8,-3,2,7,12,17,22,27,32,37,42,47,52,57,62,67,72,77,82,87,92,97,102,107,112,117,122,127,132,137,142,147,152,157,162,167,172,177,182,187,192,197,202,207,212,217,222,227,232,237,242,247),times=c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,1,0,0,2,0,0,2,0,0,0,1,0,1,1,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,1,0,1,0,0,0,0,0,0,0,1,0,1,1,0,1,0,1,0,0,0))
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
3 frag_sd = sd(fragsize)
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
4 frag_mean = mean(fragsize)
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
5 frag_median = median(fragsize)
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
6 write(c("Mean insert size",frag_mean), stdout())
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
7 write(c("Median insert size",frag_median), stdout())
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
8 write(c("Standard deviation",frag_sd), stdout())
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
9 hist(fragsize,probability=T,breaks=100,xlab="mRNA insert size (bp)",main=paste(c("Mean=",frag_mean,";","SD=",frag_sd),collapse=""),border="blue")
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
10 lines(density(fragsize,bw=10),col='red')
306127635959 planemo upload for repository https://github.com/lparsons/galaxy_tools/tree/master/tools/rseqc commit aeb25d807817746dd6957f30ce2070662cc10e91
lparsons
parents:
diff changeset
11 dev.off()