
Last chance! 50% off unlimited learning
Sale ends in
lpe(x, y, basevar.x,basevar.y, df=10, array.type="olig", probe.set.name=NULL, trim.percent=5)
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.
# Loading the library and the data
library(LPE)
data(Ley)
dim(Ley)
# Gives 12488*7
# First column is ID.
# Subsetting the data
subset.Ley <- Ley[1:1000,]
subset.Ley[,2:7] <- preprocess(subset.Ley[,2:7],data.type="MAS5")
# Finding the baseline distribution of condition 1 and 2.
var.11 <- baseOlig.error.step1(subset.Ley[,2:4])
var.1 <- baseOlig.error(subset.Ley[,2:4], q=0.01)
var.2 <- baseOlig.error(subset.Ley[,5:7], q=0.01)
# Applying LPE
lpe.result <- lpe(subset.Ley[,2:4],subset.Ley[,5:7], var.1, var.2,
probe.set.name=subset.Ley[,1])
Run the code above in your browser using DataLab