EBHMMNBMultiEM_2chain(Data,
NgVector=NULL, Conditions, AllTran=NULL,
AllPi0=NULL, Terms=NULL,
sizeFactors, NumTranStage=c(3,2),PriorFC=2,
StateNames=c("Up","Down"),homo=FALSE,
UpdateRd=5, PIBound=.9, UpdatePI=FALSE,Print=FALSE,
WithinCondR=TRUE,
PenalizeLowMed=TRUE, PenalizeLowMedQt=.1,PenalizeLowMedVal=10)
TranOut: estimated transition probabilities of each iteration.
Pi: estimated probability of being each chain.
Alpha, Beta: estimated alpha and beta(s).
LLSum: log likelihood of the model.
QList: estimated q's.
MgAllPP: marginal PP for all paths.
MgAllMAPChar: Most likely path based on MgAllPP.
MgAllMaxVal: Highest PP based on MgAllPP.
PPMatW: Posterior probabilities of being each of the chains.
data(GeneExampleData)
CondVector <- rep(paste("t",1:5,sep=""),each=3)
Conditions <- factor(CondVector, levels=c("t1","t2","t3","t4","t5"))
Sizes <- MedianNorm(GeneExampleData)
tmp <- EBHMMNBMultiEM_2chain(Data=GeneExampleData,sizeFactors=Sizes, Conditions=Conditions,
UpdateRd=2)
Run the code above in your browser using DataLab