adjBaseOlig.error.step1(y, stats=median, setMax=FALSE, q=0.01, df=10)
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.
lpeAdj
# Loading the data from the LPE library
data(Ley)
dim(Ley)
# Gives 12488 by 7
Ley[1:3,]
# Returns
# ID c1 c2 c3 t1 t2 t3
# 1 AFFX-MurIL2_at 4.06 3.82 4.28 11.47 11.54 11.34
# 2 AFFX-MurIL10_at 4.56 2.79 4.83 4.25 3.72 2.94
# 3 AFFX-MurIL4_at 5.14 4.10 4.59 4.67 4.71 4.67
Ley[1:1000,2:7] <- preprocess(Ley[1:1000,2:7],data.type="MAS5")
# Finding the baseline distribution of subset of the data
# condition one (3 replicates)
var.1 <- adjBaseOlig.error.step1(Ley[1:1000,2:4], setMax=FALSE, q=0.01)
dim(var.1)
# Returns a matrix of 1000 by 2 (A,M) format
Run the code above in your browser using DataLab