zzh
/
gatk-3.8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Using bitmap() instead of png() since the former doesn't rely on X11. 

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@2873 348d0f76-0448-11de-a6fe-93d51630548a
This commit is contained in:
kshakir 2010-02-23 05:31:51 +00:00
parent a0e8de40cf
commit 36129e01e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R/analyzeConcordance/analyzeConcordance.R
View File

@ -29,7 +29,7 @@ if (nrow(d.filtered) > 0) {
nFilterTypes <- 1 nFilterTypes <- 1
} }
png(outfile, width=600, height=(300 * nFilterTypes)) bitmap(outfile, width=600, height=(300 * nFilterTypes), units="px")
par(cex=1.1, mfrow=c(1 * nFilterTypes,2)) par(cex=1.1, mfrow=c(1 * nFilterTypes,2))
nbreaks <- 20 nbreaks <- 20
color <- "grey" color <- "grey"
@ -51,7 +51,7 @@ dev.off()
outfile = paste(base_name, ".novel_vs_known_titv.png", sep="") outfile = paste(base_name, ".novel_vs_known_titv.png", sep="")
png(outfile, width=600, height=600) bitmap(outfile, width=600, height=600, units="px")
d.display <- d.display[order(d.display$novel_titv),] d.display <- d.display[order(d.display$novel_titv),]
plot(1:length(d.display$known_titv),d.display$known_titv,type="b",col="blue",ylim=c(0,4), xlab="Sample #", ylab="Ti / Tv") plot(1:length(d.display$known_titv),d.display$known_titv,type="b",col="blue",ylim=c(0,4), xlab="Sample #", ylab="Ti / Tv")