Mercurial > repos > yufei-luo > differential_expression_analysis_pipeline_for_rnaseq_data
view DiffExpAnal/DESeqTools/histoRawp.R @ 0:63799b789162 draft
Uploaded
author | yufei-luo |
---|---|
date | Tue, 22 Jan 2013 10:07:03 -0500 |
parents | |
children |
line wrap: on
line source
# Marie-Anges Dillies # histoRawp # histogram of raw p-values # input : res, OUT_histoRawpName # output : histogram (png) histoRawp <- function( res, OUT_histoRawpName, out = TRUE ){ if (out) png( file=OUT_histoRawpName ) ind <- grep("val", colnames(res)) hist( res[,ind], nclass=50, xlab="Raw p-values", main="", col="skyblue" ) if (out) dev.off() }