Nothing
make.label <-
function(cx, xnam, dimx, vx)
{
if(cx == "random.bayesx")
label <- paste("sx(", xnam, sep = "")
if(cx == "sm.bayesx") {
if(dimx > 1L)
label <- paste("sx(", xnam[1L], ",", xnam[2L], sep = "")
else
label <- paste("sx(", xnam, sep = "")
}
if(cx == "mrf.bayesx")
label <- paste("sx(", xnam, sep = "")
if(cx == "geo.bayesx")
label <- paste("sx(", xnam[1], sep = "")
if(is.null(vx))
label <- paste(label, ")", sep = "")
else
label <- paste(label, "):", vx, sep = "")
return(label)
}
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.