|
0
|
1 # boxplotCounts
|
|
|
2 # boxplots representing counts distribution per sample
|
|
|
3
|
|
|
4 # input : counts, target, projectName, type of data (raw or norm)
|
|
|
5 # output : boxplot (png)
|
|
|
6
|
|
|
7 # created Feb 7th, 2012
|
|
|
8 # modified April 30th, 2012
|
|
|
9 # Marie-Anges Dillies
|
|
|
10
|
|
|
11 boxplotCounts <- function( counts, group, type = c("raw", "norm"), OUT_boxplotCountsName, out = TRUE ){
|
|
|
12
|
|
|
13 if (out) png( file=OUT_boxplotCountsName )
|
|
|
14
|
|
|
15 boxplot( log2(counts+1), col=as.integer(group)+1, main = paste(type[1], " counts distribution", sep="" ) )
|
|
|
16 legend( "topright", as.character(unique(group)), lty=1, col=as.integer(unique(group))+1 )
|
|
|
17
|
|
|
18 if (out) dev.off()
|
|
|
19 }
|
