1 | data.ord(Y, Covs, ncat, prior, Treat)
|
Y |
|
Covs |
|
ncat |
|
prior |
|
Treat |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (Y, Covs, ncat, prior, Treat)
{
inData = list(Treat = Treat, Y = Y, ncat = ncat, nobs = length(Y),
mean.beta = prior$mean.beta, prec.beta = prior$prec.beta,
lower.dc = prior$lower.dc, upper.dc = prior$upper.dc,
lower.c1 = prior$lower.c1, upper.c1 = prior$upper.c1)
if (!is.null(Covs)) {
inData[[1 + length(inData)]] = Covs
names(inData)[[length(inData)]] = "x"
inData[[1 + length(inData)]] = prior$mean.slope
names(inData)[[length(inData)]] = "mean.slope"
inData[[1 + length(inData)]] = prior$prec.slope
names(inData)[[length(inData)]] = "prec.slope"
}
return(inData)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.