data(pecten)
data(pecten.fac)
pecten.norm <- Norm.qt(pecten, n1=6, n2=6, plot=TRUE) #Quantiles normalization of the data
ES.p <- ES.prot(pecten.norm, n1=6, n2=6, f=pecten.fac)
x <- modT.Prot(ES.p, fdr.thr=0.1, plot=TRUE)
featureNames(x) # Names of the spots selected for a moderated t-test with a fdr of 0.1
fData(x) # Displaying fold change (as log2(ratio)) for selected spots
exprs(x) # Normalized volume data for all the selected spots
## Not run: heatplot(x) #Great heatmap of the selected spots (requires made4 Bioconductor package )
Run the code above in your browser using DataLab