data(targets.micro)
data(ddPROC)
esetPROC=esetMicroRna(ddPROC,targets.micro,makePLOT=FALSE)
levels.treatment=levels(factor(targets.micro$Treatment))
treatment=factor(as.character(targets.micro$Treatment),
levels=levels.treatment)
levels.subject=levels(factor(targets.micro$Subject))
subject=factor(as.character(targets.micro$Subject),
levels=levels.subject)
design=model.matrix(~ -1 + treatment + subject )
CM=cbind(MSC_AvsMSC_B=c(1,-1,0,0),
MSC_AvsMSC_C=c(1,0,-1,0))
fit2=basicLimma(esetPROC,design,CM,verbose=TRUE)
DE=getDecideTests(fit2,
DEmethod="separate",
MTestmethod="BH",
PVcut=0.10)
significantMicroRna(esetPROC,
ddPROC,
targets.micro,
fit2,
CM,
DE,
DEmethod="separate",
MTestmethod="BH",
PVcut=0.10,
Mcut=0,
verbose=TRUE)
Run the code above in your browser using DataLab