Nothing
## ---- eval=1:2----------------------------------------------------------------
library(HydeNet)
data(BlackJack, package="HydeNet")
plot(BlackJack, useHydeDefaults=FALSE)
## ---- eval=FALSE--------------------------------------------------------------
# plot(BlackJack)
## -----------------------------------------------------------------------------
getOption("Hyde_plotOptions")
## ---- eval=1------------------------------------------------------------------
HydePlotOptions(variable=list(shape = "rect", fillcolor = "#A6DBA0"),
determ = list(shape = "rect", fillcolor = "#E7D4E8",
fontcolor = "#1B7837", linecolor = "#1B7837"),
decision = list(shape = "triangle", fillcolor = "#1B7837",
linecolor = "white"),
utility = list(shape = "circle", fillcolor = "#762A83",
fontcolor = "white"))
plot(BlackJack)
## ---- eval=FALSE--------------------------------------------------------------
# HydePlotOptions(restorePackageDefault=TRUE)
# plot(BlackJack)
## ---- eval=FALSE--------------------------------------------------------------
# plot(BlackJack,
# customNodes = customNode(node_id = "hit1",
# fillcolor = "purple", shape = "circle",
# fontcolor = "white", height = "2",
# style="filled"))
## ---- eval = FALSE------------------------------------------------------------
# plot(BlackJack,
# customNodes = customNode(node_id = "hit1", height = "2"))
# plot(BlackJack,
# customNodes = customNode(node_id = "hit2", height = "2"))
# plot(BlackJack,
# customNodes = customNode(node_id = "hit3", height = "2"))
## ---- eval=FALSE--------------------------------------------------------------
# plot(BlackJack,
# customNodes = rbind(customNode(node_id = "hit1", height="2"),
# customNode(node_id = "hit2", height="2"),
# customNode(node_id = "hit3", height="2")))
## ---- eval=FALSE--------------------------------------------------------------
# plot(BlackJack,
# customNodes = customNode(node_id = "payoff",
# fillcolor = "green",
# shape = "ellipse",
# height="2",
# width="4",
# style="filled"),
# useHydeDefaults = FALSE)
## ---- include = FALSE---------------------------------------------------------
if (!RCurl::url.exists("http://www.graphviz.org/about"))
{
stop("Graphviz link does not exist. Find a new link")
}
# if (!RCurl::url.exists("https://bicyclecards.com/how-to-play/blackjack"))
# {
# stop("Blackjack rules URL does not exist. Find a new link")
# }
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.