data.init: Data initialization

Usage Arguments Examples

View source: R/Scale_Logistic.R

Usage

1
data.init(beta.eval = beta.star, datum.idx.start = 1, length.idxs = dsz)

Arguments

beta.eval
datum.idx.start
length.idxs

Examples

 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)
  }

mpoll/scale documentation built on Dec. 9, 2019, 7:15 a.m.