View source: R/Scale_Logistic.R
1 | data.init(beta.eval = beta.star, datum.idx.start = 1, length.idxs = dsz)
|
beta.eval |
|
datum.idx.start |
|
length.idxs |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- 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 (beta.eval = beta.star, datum.idx.start = 1, length.idxs = dsz)
{
evaluate <- data.eval(beta.eval, c(datum.idx.start:(datum.idx.start +
length.idxs - 1)))
alpha.cent <<- matrix(as.numeric(evaluate$grad.log.pi), nrow = 1)
alpha.cent.sq <<- (alpha.cent) %*% t(alpha.cent)
alpha.p.cent <<- sum(as.numeric(evaluate$lap.log.pi))
phi.cent <<- (alpha.cent.sq + alpha.p.cent)/2
list(alpha.cent = alpha.cent, alpha.cent.sq = alpha.cent.sq,
alpha.p.cent = alpha.p.cent, phi.cent = phi.cent)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.