View source: R/Scale_Logistic.R
1 | logistic.centering(datum.idx.start = 1, length.idxs = dsz)
|
datum.idx.start |
|
length.idxs |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ##---- 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 (datum.idx.start = 1, length.idxs = dsz)
{
call.data <- data.subset(datum.idx.start, length.idxs)
subset.design.mat <- as.matrix(call.data$subset.design[,
-1, drop = FALSE])
subset.data <- call.data$subset.data
subset.glm <- glm(formula = subset.data ~ subset.design.mat,
family = binomial(link = "logit"))
center <- subset.glm$coef
precon <- vcov(subset.glm)
list(center = center, precon = precon, precon.inv = solve(precon),
logistic.glm = subset.glm, det.metric = det(precon))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.