data(damage)
# Get the probabilities of differential expression
# for the knockout of p53 in healthy cells
probs.healthy.p53= differential.probs(data.healthy[,"p53",FALSE],
beliefs.healthy["p53"], TRUE,TRUE)
# Get the probabilities of differential expression
# for the knockout of Ste12 under pheromone treatment
library(bgmm)
data(Ste12)
data=as.matrix(Ste12Data)
colnames(data)="Ste12"
beliefs=list(Ste12=Ste12Beliefs)
diff.p=differential.probs(data,beliefs,TRUE,TRUE)
## Not run:
# probs.healthy= differential.probs(data.healthy, beliefs.healthy, TRUE,TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab