R/plot.bayes2.R

plot.bayes2=function(x,marginal=0,...)
if(marginal==0)image(as.numeric(dimnames(x$prob)[[1]]),
as.numeric(dimnames(x$prob)[[2]]),x$prob,
col=gray(1-(0:32)/32),...) else
if(marginal==1) barplot(apply(x$prob,1,sum),...) else
barplot(apply(x$prob,2,sum),...)

Try the LearnBayes package in your browser

Any scripts or data that you put into this service are public.

LearnBayes documentation built on May 1, 2019, 7:03 p.m.