Nothing
s4hm <-
function(dir, model.name)
{
if(length(bm <- search.bayesx.models(dir)))
bm <- unique(grep(paste(model.name, "_hlevel", sep = ""), bm, fixed = TRUE, value = TRUE))
else
stop(paste("problems reading model results from directory:", dir))
return(bm)
}
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.