# loading bcm object from GSE46141 dataset
data(GSE46141)
library(Biobase)
# defining the group variable. local breast tumors are the controls
# and the rest of the samples are the diseased samples
group <- sapply(pData(bcm)$source_name_ch1, function(x){ ifelse(x == "breast",0,1)})
group <- factor(group)
# running opa with default values (i.e upper.quantile = 0.95, lower.quantile = 0.05)
# the result is an object of type OPPARList
opa(bcm,group = group)
Run the code above in your browser using DataLab