R/c.bayesx.R
c.bayesx <- function(...)
{
b <- list(...)
x <- NULL
for(i in 1L:length(b))
x <- c(x, b[i])
Call <- match.call()
names(x) <- as.character(Call[-1L])
class(x) <- "bayesx"
return(x)
}
c.bayesx <- function(...)
{
b <- list(...)
x <- NULL
for(i in 1L:length(b))
x <- c(x, b[i])
Call <- match.call()
names(x) <- as.character(Call[-1L])
class(x) <- "bayesx"
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
