Mercurial > repos > yufei-luo > s_mart
comparison SMART/DiffExpAnal/DESeqTools/histoRawp.R @ 18:94ab73e8a190
Uploaded
| author | m-zytnicki |
|---|---|
| date | Mon, 29 Apr 2013 03:20:15 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 17:b0e8584489e6 | 18:94ab73e8a190 |
|---|---|
| 1 # histoRawp | |
| 2 # histogram of raw p-values | |
| 3 | |
| 4 # input : res, OUT_histoRawpName | |
| 5 # output : histogram (png) | |
| 6 | |
| 7 | |
| 8 histoRawp <- function( res, OUT_histoRawpName, out = TRUE ){ | |
| 9 | |
| 10 if (out) png( file=OUT_histoRawpName ) | |
| 11 | |
| 12 ind <- grep("val", colnames(res)) | |
| 13 hist( res[,ind], nclass=50, xlab="Raw p-values", main="", col="skyblue" ) | |
| 14 | |
| 15 if (out) dev.off() | |
| 16 } | |
| 17 | |
| 18 |