lpeAdj(dat, labels=NULL, doMax=FALSE, doAdj=TRUE, q=.01)
Jain et. al. (2003) Local pooled error test for identifying differentially expressed genes with a small number of replicated microarrays, Bioinformatics, 1945-1951.
Jain et. al. (2005) Rank-invariant resampling based estimation of false discovery rate for analysis of small sample microarray data, BMC Bioinformatics, Vol 6, 187.
# Creating a null dataset (two groups with three
# replicates each)
dat <- matrix(rnorm(6000), ncol=6)
# Applying LPE
lpe.result <- lpeAdj(dat, labels=c(0,0,0,1,1,1))
Run the code above in your browser using DataLab