data(fiftyGenes)
tinyCond <- c(rep(1,100),rep(2,25))
tinyPat <- ebPatterns(c("1,1","1,2"))
D <- makeMyD(fiftyGenes, tinyCond, useBWMC=TRUE)
set.seed(3)
initHP <- initializeHP(D, tinyCond)
zout <- ebCoexpressZeroStep(D, tinyCond, tinyPat, initHP)
## Not run: oout <- ebCoexpressOneStep(D, tinyCond, tinyPat, initHP)
## Not run: fout <- ebCoexpressFullTCAECM(D, tinyCond, tinyPat, initHP)
softThresh <- crit.fun(zout$POSTPROB[,1], 0.05)
Run the code above in your browser using DataLab