## Shortly running example. For a more realistic example that takes
## some more time, run the same procedure with the full BEclearData
## dataset.
## Whole procedure that has to be done to use this function.
data(BEclearData)
ex.data <- ex.data[31:90,7:26]
ex.samples <- ex.samples[7:26,]
# Calculates median difference values and p-values from the example data
med <- calcMedians(data=ex.data, samples=ex.samples, parallel=FALSE)
pvals <- calcPvalues(data=ex.data, samples=ex.samples, parallel=FALSE,
adjusted=TRUE, method="fdr")
# Summarize p-values and median differences for batch affected genes
sum <- calcSummary(medians=med, pvalues=pvals)
# Calculates the score table
score.table <- calcScore(data=ex.data, samples=ex.samples, summary=sum,
dir=getwd())
Run the code above in your browser using DataLab