# From: http://www.bioconductor.org/packages/release/bioc/html/Rgraphviz.html
# source("http://bioconductor.org/biocLite.R")
# biocLite("Rgraphviz")

library("Rgraphviz")
## Loading required package: graph
## Loading required package: grid
source('fns.R')

plan <- buildBayesPlanG(4,0.5,buildGraph=TRUE,alpha0=1.0e-6,beta0=1.0e-6)
graph <- mkPlanGraph(plan,minBStep=4)
renderGraph(graph)

graph <- mkPlanGraph(plan,minBStep=3)
renderGraph(graph)