##TODO##
#fill in missing probabilities using data.tree traversal functions
osNode <- osNode.health_pdistn
prob_fill <- function(node) {
node$pmin <- sapply(node$children, function(child) child$p)
}
osNode$Do(prob_fill, traversal = "post-order")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.