## Not run:
# data(BoutrosRNAi2002)
# exps <- colnames(BoutrosRNAiExpression)
# res <- quicknem(BoutrosRNAiExpression,controls="control")
# res <- quicknem(BoutrosRNAiExpression,controls="control",type="CONTmLLRatio")
# res <- quicknem(BoutrosRNAiExpression,controls="control",type="CONTmLLRatio",inference="ModuleNetwork")
# contrasts <- c("rel-control","rel-LPS","key-control","key-LPS","tak-control","tak-LPS","mkk4hep-control","mkk4hep-LPS")
# res <- quicknem(BoutrosRNAiExpression,contrasts=contrasts)
#
# data(SahinRNAi2008)
# dat <- dat.unnormalized #[,sample(1:17,5)]
# res <- quicknem(dat,type="depn")
# ## End(Not run)
Run the code above in your browser using DataLab